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Eliminates Every Bug known to Compilers 


_.. As well as a few other species 


H.E.L.P. is a completely interactive 
C programming environment with three 
innovative full-sized features that will 
revolutionize the way you write code. 


A Clean Compile — 


Guaranteed! 


S ay Good-bye to all compiler-type 
errors. H.E.L.P. ’s built-in program 
checker (which would embarrass LINT) 
not only hunts down bugs. . . explains 
the proper syntax .. . gives examples of 
usage .. . but will even offer suggested 
corrections. If you want, H.E.L.P. will 
even make the corrections for you... 
at the touch of a key. 


H.E.L.P. also finds semantic errors as 
well as poor style and inefficiencies. 
You can even check the portability of 
your code! 


Multi-Window Editing 
or as many windows as you want 
.... there’s no limitation ...noteven 
your own memory. Because H.E.L.P. 
uses a virtual memory system you can 


create programs larger than your 
machine capacity. 


H.E.L.P.’s very powerful editor allows 
you the flexibility to work in several 
windows .. . with several files at the 


same time. 
Circle no. 165 on reader service card 


Save Keystrokes 


+ undreds of commands are bound 
to the keyboard to give you fast 
execution. 


Always be in Control 


N ot only can you develop code in 
many windows at the same time, but 
you can show (and refer to) important 
definitions in one window while creating 
in another. Or open a window and keep 
notes about your program... or type a 
memo... ora letter. 


Increase your Productivity 
by 300% or More..... 


li you are a novice programmer, you'll 
begin writing code like an advanced 
programmer much faster with H.E.L.P. 


J ust imagine what H.E.L.P. will do 
for the ADVANCED PROGRAMMER. 


ou’ll have more time to become 
creative with your algorithm (since 
H.E.L.P. will make sure your code 
compiles the “first time at bat”). 


H.E.L.P. tracks every step you make. 
If you are not sure about a command, 


just press a key, and you'll get the kind 
of help you need. 








Check These Features 


@ Multi-window environ- @ Intelligent help sub- 
ment — system 
@ Interactive program @ User-detinable key- 


checking bindi 
@ Check syntax, semantic, ° janelal Aa aia d 
type usage, intermodule uP? ” 
monochrome 


inconsistencies and 
@ H.E.L.P. supports the 


portability 
@ Multi-file editing full C Language 


NOW IN MS-DOS 





Everest Solutions, Inc. 
3350 Scott Boulevard 
Building 58 

Santa Clara, CA95051 
(408) 986-8977 


Optotech, Inc. The 54 inch 
Optical Disk Drive 
Is Here! 


Optical Disk Drive 5984 
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Give your favorite programmer a holiday treat — Phoenix 
Pfantasy Pacl. Six of the best-engineered, highest perform- 
ance programming packages on the market today. $1800 
sold separately. $1295 as Pfantasy Pac! with new software, 
and a unique on-line software update service. All at the one- 
time holiday price of $995. The perfect gift for the knowl- 
edgeable programmer. You'll get: 


..-Plink™86 Plus, our new linkage editor, adds 
a new dimension to modular programming... 


Cache overlays to reduce response time. =. 
Link programs much larger than possible 
with standard linkers. Merge object mod- : 
ules so you can package them together. " é 
Reload overlays automatically, so it’s | 

















Lele es xe I 
easier to design program structures. Or, ian en | a Pere Pac 1¢ 


create up to 4,095 overlays, nested 
up to 32 levels, in one or man 


files, on one or many disks. | o ee 


...Plus, Pmate™ the | Fre 
text editor that works | PS 
the way you do... | ms 


ground while you perform 
another task, or call it up 
instantly while you’re inside 
another program. With 
Pmate, you can reassign 
any command or key, so 





*Price effective through December 31, 1985. 
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Buy Yourself A Pfantas 





Just S12 


you can use keystrokes learned on other editors or make your 
keyboard Dvorak. And, you can assign complicated editing 
tasks to a keystroke, so you never have to re-key them. 


... Pmaker,™ the perfect program 
development manager... 


Like UNIX™ Make and MMF, Pmaker updates and tracks 
modifications in your programs. With Pmaker, generating a 
final copy of your program is never more complicated than 
typing PMAKER MYFILE, regardless of the number 
of modules that make up MYFILE, their depen- 
dencies on one another, the number of modules 
changed, or the variety of compile/assemble/ 

link steps required to generate the program. 


..-Pfix™ 86 Plus, the most advanced 
symbolic debugger on the market 
today... 


With its adjustable window 
display of source file, disas- 
sembled object, data area, 
stack, breakpoint settings, 
CPU and coprocessor regis- 
ters, Pfix takes the guesswork 
from debugging. You can debug 
without a listing, since you can see 
and enter symbolic names or abso- 
lute addresses in breakpoints, data 
displays, expressions, or with the 
in-line assembler. The entire 80xx and 80xxx series of 


Circle no. 139 on reader service card. 





Pac For The 
; 3995° 


16-bit processors is supported, along with the user-assigna- 
ble string and numeric variables, up to 100-step trace-back, 
and debug log to disk or printer. Breakpoints can be set in 
the source file window, whose display can be synchronized 
with the disassembled object during tracing; symbols can be 
added incrementally during the debug session; and the disas- 
sembly written to disk. 


...Pfinish™ the program that maximizes your 
program’s efficiency... 


Pfinish helps you turn your beta-test product into a soft- 
ware work of art. It analyzes your program or the entire 
operating environment during execution, and produces re- 
ports which tell you how much time was spent in each routine 
or interrupt, who called it, how many times, and much 
more. Wasteful, inefficient, or non-optimal areas of code 
become immediately apparent, whether they’re in your 
code, the compiler library, or in the operating system 
routines themselves. 


..-Ptel™ gets the lead out of binary 
file transfer... 


You get error-free file transfer and access to mainframes, 
minis, and micros. ASCII. XModem. Modem7. Telink and 
Kermit. MS-DOS® 2.x or 3.x. With Ptel. You can transfer 
8-bit binary files over a 7-bit data path with Kermit. Masked 
file-name transfers with XModem. Or, transfer whole sub- 
directories with a single command using Telink. Ptel keeps 
track of the original file size and creation date. Ptel also 
offers a script language, backward scrolling, and the ability 
to handle DOS commands from inside the program. 


Holidays. 








...And, Phoenix’s new on-line software 
update service. Free to all registered 
Pfantasy Pacl owners. 


Ptantasy Pacl software works in MS-DOS/PC DOS en- 
vironments, is completely language-independent, and is 
available for the IBM® PC, XT,™ AT,™ and compatibles, the 
Wang” PC, the TI Business-Pro™ and the Tandy® 2000. 

So, spoil yourself a little. Get Pfantasy Pacl, and make 
your favorite programmer’s dream come true. 

For more information contact: Phoenix Computer Products 
Corporation, 320 Norwood Park South, Norwood, 

MA 02062. Or call: (800) 344-7200. In Massachusetts 
(617) 762-5030. 


Programmers’ Pfantasies™ 


by 
poet fO 

Programmers’ Pfantasies, Pfantasy Pac, Pmaker, and Pfinish are trademarks of 
Phoenix Computer Products Corporation. Pmate, Pfix86 Plus, Plink86 Plus, and 
Ptel are trademarks of Phoenix Software Associates Ltd. MS-DOS is a registered 
trademark of Microsoft Corporation. Wang is a registered trademark of Wang 
Laboratories, Inc. Tandy is a registered trademark of Tandy Corporation. UNIX 
is a trademark of AT&T Bell Laboratories. IBM is a registered trademark, XT 


and AT are trademarks of International Business Machines Inc. TI Business-Pro 
is a trademark of Texas Instruments Incorporated. 
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In this Issue 


This is our second annual operating systems issue. We’ve tried to present a 
variety of tools for extending the performance of several operating systems. 
We looked for techniques and programs that would make software develop- 
ment easier: a debugging tool, techniques for expanding the available mem- 
ory for programs, a conditional instruction tool for CP/M-68K. 

We also took a look at three commercial products that claim to extend 
the performance of the MS DOS operating system: DRI’s GEM, IBM’s Top- 
View, and Microsoft’s Windows. We talked to developers of each product, 
asking what programmers need to know to develop applications compatible 
with these operating environments and why a programmer might want to 
do such a thing. 
~ Look closely at the issue next month; it won’t look quite the same. Our 
art director has introduced some changes inside and outside the magazine 
that we think you’ll like. | 
We don’t think you’ll like hearing that Dr. Dobb’s Clinic is closing with 
this issue. We don’t like telling you. The resident intern, Dave Cortesi, has 
gone off to pursue interests having nothing to do with software. We'll miss 
Dave’s gentle wit. We’d like to reopen the Clinic, but we haven't found 
anyone yet to fill Dave’s shoes, and until we do, we won't. 


Next month: 68000 programming. 
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EDITORIAL 








had forced DRI into changing the GEM Desktop; Apple lawyers were 

eyeing Atari and Microsoft; and Atari, anxious to get its software into 
ROM, was reportedly ready to challenge Apple. Apple’s contention that its 
copyright protected not only the expression of algorithms in code but also 
the visual expression of the desktop (and implicitly that it had invented that 
desktop) had yet to be tested in court. 

Adapso had been running ads attempting to educate software users 
about the criminal nature of unauthorized copying of software. Several 
software publishers had brought suit against customers to aid in the peda- 
gogical process—all in reaction to a perceived loss of (potential) revenues 
and all very reminiscent of a campaign by the author of MITS BASIC a 
decade earlier. It wasn’t a good tactic then to call your (potential) custom- 
ers thieves and probably isn’t now, but how are authors’ and publishers’ 
investments in software to be protected without alienating users? 

Vault, a manufacturer of a copy-protection product, concluded that a 
Canadian company must have illegally disassembled Vault’s code in order 
to produce its unlocking product; so Vault found a state in which it thought 
it could get a decision in its favor and sued. Vault lost, but one decision in a 
Louisiana court hardly dissipates the moral ambiguity that surrounds the 
entire copy-protection issue. Do we really want this escalating arms race 
between protectors and crackers? 

The Vault case dealt with trade secrets. Copyright applies to works that 
are in some manner made public. No author of a book would object to 
someone analyzing his work in order to understand it—disassembling it, if 
you will. Trade secrets, on the other hand, are necessarily secret. Whom do 
trade secrets protect, and whom does copyright protect? Many software 
publishers treat the two protection methods as compatible, but does it real- 
ly make sense that you can protect as a trade secret something protected 
under copyright law? As a book reviewer I could, under the fair-use inter- 
pretation of copyright law, excerpt and analyze a work of literature. Could 
I, as a software reviewer, disassemble and publish portions of commercial 
programs to show the workings of key algorithms? 

These questions suggest, at the very least, that not everyone is of one 
mind regarding the protection of intellectual property. They also suggest 
something more alarming: that precedents are being set and opinions are 
being molded by bluster and threat, by cases that never come to court, and 
by venue-choosing ploys that take advantage of differing levels of under- 
standing of the issues in different states. It shouldn’t be that way. 

You could do something about it. You probably know more about the 
issues than do most journalists, judges, or jurors. And I suspect you may 
have more empathy for the user than does the average software publisher, 
who often has stockholders to answer to. I urge you to make your expertise 
available to those making decisions with long-term implications. Educate 
lawyers and editors. 

Become an expert witness for rational software law. 


Wii) Sake 


Michael Swaine 


t’s been a litigious autumn in the software industry. At press time, Apple 
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The C for Microcom 


puters 


® PC-DOS, MS-DOS, CP/M-86, Macintosh, Amiga, Apple II, CP/M-80, Radio Shack, 
Commodore, XENIX, ROM, and Cross Development systems 


Manx Aztec C86 
“A compiler that has many strengths ... quite valuable 
for serious work” 

Computer Language review, February 1985 


Great Code: Manx Aztec C86 generates ‘fast executing 
compact code. The benchmark results below are from a 
study conducted by Manx. The Dhrystone benchmark 
(CACM 10/84 27:10 p1018) measures performance for a 
systems software instruction mix. The results are with- 
out register variables. With register variables, Manx, 
Microsoft, and Mark Williams run proportionately faster, 
Lattice and Computer Innovations show no improve- 
ment. 


Execution Code Compile/ 
Time Size Link Time 


Dhrystone Benchmark 
Manx Aztec C86 3.3 34 secs 5,760 93 secs 


Microsoft C 3.0 34 secs 7,146 119 secs 
Optimized C86 2.20) 53secs 11,009  172secs 
Mark Williams 2.0 56secs 12,980 113 secs 
Lattice 2.14 89 secs 20,404 117 secs 





Great Features: Manx Aztec C86 is bundled with a powerful 
array of well documented productivity tools, library routines 
and features. 

Optimized C compiler Symbolic Debugger 

AS86 Macro Assembler LN86 Overlay Linker 
80186/80286 Support Librarian 

8087/80287 Sensing Lib Profiler 


Extensive UNIX Library DOS, Screen, & Graphics Lib 
Large Memory Model Intel Object Option 
Z (vi) Source Editor -c CP/M-86 Library -c 


ROM Support Package-c § INTEL HEX Utility -c 
Library Source Code -c Mixed memory models -c 
MAKE, DIFF and GREP -c Source Debugger -c 

One year of updates -c CP/M-86 Library -c 


Manx offers two commercial development systems, 
Aztec C86-c and Aztec C86-d. Items marked -c are 
special features of the Aztec C86-c system. 


Aztec C86-c Commercial System $499 
Aztec C86-d Developer’s System $299 
Aztec C86-p Personal System $199 
Aztec C86-a Apprentice System $49 


All systems are upgradable by paying the difference 
in price plus $10. 


Third Party Software: There are a number of high qual- 
ity support packages for Manx Aztec C86 for screen 
management, graphics, database management, and soft- 
ware development. 


C-tree $395 Greenleaf $185 
PHACT $250 PC-lint $98 

HALO $250 Amber Windows $59 
PRE-C $395 Windows for C $195 


WindScreen $149 FirsTime $295 
SunScreen $99 C Util Lib $185 
PANEL $295 Plink-86 $395 
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Manx Aztec C68k 


“Library handling is very flexible ... documentation is 
excellent ... the shell a pleasure to work in ... blows 
away the competition for pure compile speed... an ex- 
cellent effort.” 

Computer Language review, April 1985 


Aztec C68k is the most widely used commercial C com- 
piler for the Macintosh. Its quality, performance, and 
completeness place Manx Aztec C68k in a position be- 
yond comparison. It is available in several upgradable 
versions. 


Optimized C Creates Clickable Applications 
Macro Assembler Mouse Enhanced SHELL 
Overlay Linker Easy Access to Mac Toolbox 
Resource Compiler UNIX Library Functions 
Debuggers Terminal Emulator (Source) 
Librarian Clear Detailed Documentation 
Source Editor C-Stuff Library 

MacRam Disk -c UniTools (vi,make,diff,grep) -c 


Library Source -c One Year of Updates -c 


Items marked -c are available only in the Manx Aztec 
C86-c system. Other features are in both the Aztec C86-d 
and Aztec C86-c systems. 


Aztec C68k-c Commercial System $499 
Aztec C68d-d Developer’s System $299 
Aztec C68k-p Personal System $199 
C-tree database (source) $399 


AMIGA, CP/M-68k, 68k UNIX call 


Manx Aztec C65 


“The AZTEC C system is one of the finest software 
packages I have seen” 
NIBBLE review, July 1984 


A vast amount of business, consumer, and educational 
software is implemented in Manx Aztec C65. The quality 
and comprehensiveness of this system is competitive 
with 16 bit C systems. The system includes a full optim- 
ized C compiler, 6502 assembler, linkage editor, UNIX 
library, screen and graphics libraries, shell, and much 
more. The Apple II version runs under DOS 3.3, and 
ProDOS, Cross versions are available. 

The Aztec C65-c/128 Commodore system runs under 
the C128 CP/M environment and generates programs for 
the C64, C128, and CP/M environments. Call for prices 
and availability of Apprentice, Personal and Developer 
versions for the Commodore 64 and 128 machines. 


Aztec C65-c ProDOS & DOS 3.3 $399 


Aztec C65-d Apple DOS 3.3 $199 
Aztec C65-p Apple Personal system $99 
Aztec C65-a for learning C $49 


Aztec C65-c/128 C64, C128, CP/M $399 


Distribution of Manx Aztec C 


In the USA, Manx Software Systems is the sole and ex- 
clusive distributor of Aztec C. Any telephone or mail 
order sales other than through Manx are unauthorized. 


Cross developed programs are edited, compiled, assem- 
bled, and linked on one machine (the HOST) and trans- 
ferred to another machine (the TARGET) for execution. 
This method is useful where the target machine is slower 
or more limited than the HOST, Manx cross compilers 
are used heavily to develop software for business, 
consumer, scientific, industrial, research, and education- 
al applications. 


HOSTS: VAX UNIX ($3000), PDP-11 UNIX ($2000), MS- 
DOS ($750), CP/M ($750), MACINTOSH ($750), 
CP/M-68k ($750), XENIX ($750). 


TARGETS: MS-DOS, CP/M-86, Macintosh, CP/M-68k, 
CP/M-80, TRS-80 3 & 4, Apple II, Commodore C64, 
8086/80x86 ROM, 68xxx ROM, 8080/8085/Z80 ROM, 
65xx ROM. 

The first TARGET is included in the price of the HOST 
system. Additional TARGETS are $300 to $500 (non 
VAX) or $1000 (VAX). 

Call Manx for information on cross development to the 
68000, 65816, Amiga, C128, CP/M-68K, VRTX, and 
others. 


Manx Aztec CI 
“Tve had a lot of experience with different C compilers, 
but the Aztec C80 Compiler and Professional Develop- 
ment System is the best I've seen.” 

80-Micro, December, 1984, John B. Harrell III 


Aztec C II-c (CP/M & ROM) $349 
Aztec C Il-d (CP/M) $199 
C-tree database (source) $399 
Aztec C80-c (TRS-80 3 & 4) $299 
Aztec C80-d (TRS-80 3 & 4) $199 


How To Become an Aztec C User 


To become an Aztec C user call 1-800-221-0440 or call 
1-800-832-9273 (800-TEC WARE). In NJ or outside the 
USA call 201-530-7997. Orders can also be telexed to 
4995812. 

Payment can be by check, COD, American Express, 
VISA, Master Card, or Net 30 to qualified customers. 

Orders can also be mailed to Manx Software Systems, 
Box 55, Shrewsbury, NJ 07701. 


How To Get More Information 

To get more information on Manx Aztec C and related 
products, call 1-800-221-0440, or 201-530-7997, or write 
to Manx Software Systems. 


30 Day Guarantee 

Any Manx Aztec C development system can be return- 
ed within 30 days.for a refund if it fails to meet your 
needs. The only restrictions are that the original pur- 
chase must be directly from Manx, shipped within the 
USA, and the package must be in resalable condition. 
Returned items must be received by Manx within 30 
days. A small restocking fee may be required. 


Discounts 

There are special discounts available to professors, 
students, and consultants. A discount is also available on 
a “trade in” basis for users of competing systems. Call for 
information. 
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Small-C 

Dear DDJ, 

The Small-C problem reported by 
Gregor Owen (Letters, July 1985) has 
already been identified, fixed, and re- 
ported to Small-C users on my mailing 
list. It also appears in the “Small-C 
Update” article (DDJ, August 1985). 

As it turns out, Owen’s change 
does not address the real problem and 
introduces serious problems of its 
own. It is generally not a good idea 
simply to remove functions from a 
program even if they are referenced 
only once. Most programmers have 
reasons, other than the introduction 
of bugs, for placing even poorly docu- 
mented functions in programs. 

The function result( ) serves the vi- 
tal role of causing the expression ana- 
lyzer to note for binary operators 
whether or not the result is an address, 
and if so whether it is a character or 
integer address. Removing it will 
cause the analyzer always to assume 
the attributes of the left operand for 
the operator value. For example, 
‘‘addrl — addr2” should yield an in- 
teger result indicating the number of 
objects (bytes or words) between the 
two addresses. Without result( ), 
Small-C will think it has another ad- 
dress, and that has ramifications for 
the further process of expression 
evaluation. 

The real problem was that the ana- 
lyzer was losing track of the attri- 
butes of the lvalue for ?= operators 
when the right side evaluated to an 
address. The correction was to make 
hierl( ) (in CC31.C) remember two 
of the lvalue attributes for use at 
store time. This is done as follows: 


1. define the local integer array 
lval3[2] after lval2[ 8]. 

2. between “if(k= =O)...” and 
“aif(lval[1])...” insert 


lval3[0] = lval[0]; 
Ilval3[1] = lval[1 ]; 
3. change the call to store(_) to 
read 
store(lval3); 


Owen’s change appeared to work 
because in his test case the error he 
introduced caused the compiler to 
sidestep the original problem. The 
troublesome statement was: 


lptr += r — bytes 


where “r’”’ was an integer and “bytes” 
was an array name (yields the array 
address). As mentioned above, the re- 
moval of result( ) would cause “r — 
bytes” to yield an integer result, there- 
by avoiding the original problem. 

By the way, one might question the 
meaning of an integer minus an ad- 
dress. K&R point out on page 99 that 
such expressions are illegal. 

Jim Hendrix 
Rt. 1, Box 585 
Oxford, MS 38655 


Information Age Issues 
Dear DDJ, 

Please continue publishing articles 
like Dean Gengle’s “Information Age 
Issues” (June 1985). Such ethical is- 
sues are too important to leave in the 
hands of a systems designer. 

I must, however, take issue with 
Gengle’s comment that “no one is 
talking about our rights to access in- 
formation that is not private and that 
was collected legally at taxpayers’ ex- 
pense. Census data and Library of 
Congress information come to mind.” 

Your readers should know that 
both the American Library Associa- 
tion Government Documents Round- 
table and the Special Libraries Asso- 
ciation Government’ Relations 
Committee have indeed been talking 
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about it. In addition, the Joint Com- 
mittee on Printing of the Congress, 
which oversees the Government 
Printing Office, has been very con- 
cerned that material produced in ma- 
chine-readable form by Federal 
agencies has not been made available 
to the GPO for distribution to the 
public through the depository librar- 
ies because it is not “printed.” 

Librarians protested strongly the 
distribution of census data in micro- 
fiche-only format because such data 
is not readily accessible to the poor or 
illiterate. Distribution on magnetic 
tape is a great service to those who 
can afford to have the tapes pro- 
cessed but may harm those who de- 
pend on such data for distribution of 
entitlement program benefits. 

Write to your representatives and 
and urge them to support the efforts 
of the Joint Committee on Printing, 
the ALA, and SLA. 

I’m not sure what Gengle is refer- 
ring to by “Library of Congress in- 
formation.”> He may be suffering 
from the misinformation provided by 
an episode of the television program 
‘““Whiz Kids” in which the elfin he- 
roes broke into the Library of Con- 
gress computers and did a homework 
assignment. I doubt if there are any 
files at the LC, or anywhere else for 
that matter, that could produce the 
results obtained. In fact, the files at 
the LC are bibliographic, containing 
references to literature, but not full 
texts—at least not yet. Not only are 
these bibliographic files available to 
the public at the LC but they are 
available on magnetic tape to librar- 
ies and other institutions throughout 
the world. Many libraries located in 
this country access those records 
through OCLC, a bibliographic utili- 
ty with over 11 million records. Some 
agencies do apparently try to hide 
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PCUNIX™ only 490° 


PCUNIX™ is powerful! It is a true multitasking, multiuser 
operating system similar to the popular UNIX® operating 
system from AT&T. This first release includes 30 utilities, 
designed to make your program development a snap. 

PCUNIX™ is versatile! It runs MS-DOS and PC-DOS 
programs, so that you'll never have to buy another set of 
development tools! Simply use your existing compilers and 
linkers. You need nothing more! As with the development of 
all of our Operating Systems, Wendin has used the Wendin 
Operating System Toolbox™to construct PCUNIX™ Because 
of this, your programs will have access to the over 70 
enhanced system services found in the Wendin Operating 
System Toolbox! ™ 

PCUNIX™ is complete! Full source code to the shell and 
all utilities, written in “C”, is included with this incredible 
package. And if you would like the source to Wendin’s 
Personal Operating System Kernel, you may also want to 
purchase the Wendin Operating System Toolbox.™ 
















































PCVMS™ only $4900 


PCVMS™ is Wendin’s version of the popular VAX/VMS 
operating system, which was developed by Digital 
Equipment Corporation for their line of VAX computers. 
PCVMS™ turns your IBM-PC, XT, AT, or true compatible 
into a supercharged, multitasking, multiuser workstation 
that runs MS-DOS and PC-DOS programs. 

As with the development of all of our Operating Systems, 
Wendin has used the Operating System Toolbox™ to 
construct PCVMS, allowing your programs access to the 
over 70 enhanced system services available in the Toolbox. 

PCVMS™ comes with full source code to the PCVMS™ 
shell and its utilities, all written in “C”. If you also want the 
source to Wendin’s Personal Operating System Kernel, 
ds may want to purchase the Wendin Operating System 

oolbox.™ 
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XTC® is the world’s first multitasking editor for the IBM- 
PC. It also runs on IBM-XT and IBM-AT computers, as well 
as true compatibles. Designed BY programmers FOR 
programmers, XTC is the ultimate editing tool for software 
developers using C, PASCAL, ASSEMBLY, BASIC, 
FORTRAN, and other languages. 

Why is XTC® the ultimate tool for editing in your 
development environment? Because it has powerful 
features like MULTITASKING MACROS, WINDOWS, TEXT 
BUFFERS, UNDO N TIMES, MACRO PROGRAMMING 
CONTROL STRUCTURES and VARIABLES, as well as 
blinding speed that leaves other editors in the stone age. 
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PC-DOS is a trademark of IBM 


MS is a vademark of Microsoft DEALER INQUIRIES WELCOME! 
Unix is a trademark of AT&T Se 
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their information from the public, 
but the Library of Congress certainly 
does not. 

Bruce B. Cox 

Documents Librarian and 

Automation Committee 

Linda Hall Library 

5109 Cherry Street 

Kansas City, MO 64110 


C Compiler Review 
Dear DDJ, 
I read with great interest your Au- 
gust 1985 review of MS DOS C com- 
pilers. | have two comments I would 
like to interject into the debate. 

First, regarding the review of the 
documentation—this is always a 
touchy area, being rather subjective 
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in impact—I am not convinced that a 
C compiler manual should include 
what is essentially a rehash of the 
standard K&R syntax chapters nor a 
rehash of the standard Unix manual’s 
chapters 2 and 3. That is, unless a 
compiler and run-time library devi- 
ate from these accepted standards, | 
see no reason to repeat them. It only 
serves to confuse. As an example, I 
find the Lattice C documentation dif- 
ficult to use because I generally ex- 
pect it to be similar to the Unix man- 
ual. It isn’t, and I always get lost 
trying to find something. 

It is much better simply to include 
a “pointer” to the appropriate docu- 
mentation with the caveat that any 
functions and/or syntactic notes in- 


140 MB disk ‘tape subsystem for XENIX 





Finally, a complete XENIX 
subsystem for the AT. 


Disk Features 

* 30, 40, 55, 72, 118 Megabytes 

(formatted) 

Combine drives with each other or 

existing drive 

25 milliseconds average access time 

Simplified installation 

Necessary file modifications done 

automatically 

Tape Features 

* 60 Megabyte 1/4 inch cartridge 

° Standard XENIX commands (cpio, tar, 
dd, etc.) 


* Fully integrated driver software 


Subsystem Features 

¢ Entire subsystem fits inside the AT 

* External version with 6 expansion 
slots available (pictured) 

* One year factory warranty 


3 Emeraid 


Systems Corporation 
Mainframe Storage for Micros 


4757 Morena Boulevard 
San Diego, CA 92117 
(619) 270-1994 

Telex: 323458 EMERSYS 
EasyLink: 62853804 


Emerald & Mainframe Storage for Micros™ Emerald Systems Corp. 
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cluded in the product’s manual imply 
a deviation from the norm. Sort of 
like a “search path” if you will. One 
uses the Unix and K&R manuals un- 
less the product’s manual overrides 
them. 

Second, the authors did not include 
as a criterion of judgement the num- 
ber of other products that support a 
particular compiler. For instance, al- 
though Lattice C does not necessarily 
produce the tightest code nor run the 
quickest, it is important that one can 
obtain interfaces to major products. 
The Oracle DBMS includes a host- 
language interface (HLI) to Lattice 
C, and a HLI to dBASE II and III can 
be obtained from Lattice. Such inter- 
faces are of great significance, and in 
these systems the choice of compiler 
will hinge entirely upon that single 
criterion. It is better, in other words, 
to put up with slightly slower execu- 
tion than to have to generate in house 
an entire nontrivial HLI. 

Otherwise, I was pleased with the 
review—it was obviously a strong ef- 
fort. It is gratifying to this C and 
Unix nut to see the wide interest in 
these tools for programmers. 

Brian Jay Wu 
P.O. Box 203 
Newbury Park, CA 91320 


Dear DDJ, 
When I heard that your magazine 
was going to do a review of C compil- 
ers and interpreters, I couldn’t wait 
to read it. 

The cover for the August 1985 issue 
claims that the review of C compilers 
is definitive. I think the review 1s mar- 
ginally useful and generally mislead- 
ing. Information important to the po- 
tential user was omitted. A list of 
considerations relating to the useful- 
ness of the various C compilers 
follows: 


1. Good luck to anyone who pur- 
chases the Microsoft compiler Ver- 
sion 3.0 without a hard disk! The four 
passes of the compiler total 290K, the 
CL.EXE driver takes 27K, the linker 
takes 41K, and the libraries needed 
total at least 120K. Add it up and you 
get a whopping 478K. 

It is becoming common to run a 
compiler from inside your editor. 
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If you're tired of waiting, 


you're using the wrong file manager. 


Be fast. Btrieve.” 


If batch jobs and reports turn waiting 
time to nighttime, then wake up! You're 
using the wrong file manager. 

Btrieve™ file management hates wait- 
ing as much as you do. It’s written in 
assembly language especially for the 
IBM PC. And based on b-tree file in- 
dexing, with automatic balancing for 
access speed that won't degrade as 
your database grows. With Btrieve, 
your applications always run fast. So 
you'll be out the door faster. 

The standard for networking. When 
your application requires multi-user file 
sharing, Btrieve/N (network version) 
sets the standard for the industry’s 
most popular LANs: IBM’s PC Net- 
work, Netware, Omninet, PC Net, 
Ether Series, Nestar, and NetOne. 
Btrieve/N offers safe network file 
management that coordinates 
simultaneous updates and prevents 
lost data. 

Automatic file recovery. Btrieve pro- 
vides automatic file recovery after a 
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system crash, so accidents and power 
failures don’t turn into database dis- 
asters. Your Btrieve data always comes 
back intact. 

Fully-relational data management. 
Using SoftCraft’s entire family of 
products gives you a complete, fully- 
relational database management sys- 
tem. Rtrieve™ adds report writing 
capabilities for generating the reports 
you need. Xtrieve™ speeds users 
through database queries with interac- 
tive, on-screen menus—no command 
language or special syntax. 

For professional programmers. 
Btrieve is the fast, reliable answer for 
all your application development. In 
any development language—BASIC, 
Pascal, COBOL, C, FORTRAN, and 
APL. With multikey access to records. 
Unlimited records per file. Duplicate, 
modifiable, and segmented keys. 
With Btrieve, you can develop better 
applications faster. And know they'll 
run—fast. 
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Suggested retail prices: Btrieve, $245; 
Btrieve/N, $595; Xtrieve, $195; 
Xtrieve/N, $395; Rtrieve, $85; 
Rtrieve/N, $175. Requires PC-DOS or 
MS-DOS 1.X, 2.X, or 3.X. 


Btrieve, Xtrieve, and Rtrieve are trademarks 
of SoftCraft Inc. 
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COMMAND.COM needs about 18K 
and a programmer’s editor may need 
100K or more. We haven’t even start- 
ed to include a debugger, assembler, 
other libraries, object modules, or 
header files. In general, it would be 
nice to know the amount of space 
needed by the compiler, libraries, 
linker, and other assorted software 
the compiler needs to run. 

2. The object-module format of the 
compilers was not mentioned. Micro- 
soft compatibility may be an impor- 
tant issue for some people, especially 
those who buy libraries. 


3. The assembler that comes with the 
Mark Williams compiler does not use 
Intel mnemonics. 

4. The review mentions that the large 
model for Lattice allows disabling of 
pointer range checking, which avoids 
a wraparound on a 64K boundary 
when doing pointer arithmetic. No- 
where was it mentioned how perilous 
such an undertaking can be on a pro- 
ject of any size! 

5. Several of the compilers support 
in-line assembly, which is extremely 
useful. I did not see any mention of 
the DeSmet or DRI compilers sup- 


porting that feature. 

6. The DeSmet debugger, an excel- 
lent tool, wasn’t even looked at! 

7. The DeSmet compiler doesn’t sup- 
port the large memory model but 
does come with an overlay linker. 

8. Although it can be useful to look at 
the size of the .EXE file produced by 
a compiler and linker, sometimes you 
want to know the sizes of the code 
and data produced by the compiler as 
well. Will the compiler tell you those 
statistics? 

9. The reviewers didn’t mention 
tradeoffs between compile/link time 


vs. speed of executable code (using an 
optimizer pass, for example). 

10. The fact that Lattice and Com- 
puter Innovations automatically pro- 
vide run-time stack-overflow check- 
ing was not mentioned. 

I would like to have seen more of 
an attempt to separate out evalua- 
tions of the compilers from the asso- 
ciated libraries. I couldn’t care less 
about the performance of libraries, 
since for applications that require 
speed and efficiency I write my own 
routines. 

I have a second reason for writing. 
It seems to me that people deciding 
which compiler to choose might ben- 
efit from feedback from program- 
mers actually using C compilers. 
Since C compilers are used in a wide 
variety of applications and environ- 
ments under MS DOS, readers would 
likely get different kinds of informa- 
tion than a reviewer would provide. 
Why not allocate space for a running 
column where readers can sound off 
about their favorite compiler and give 
reasons why they like it? 

If you readers like that idea, write 
: ) to DDJ about the compiler you like to 
regs . oe lt work with, mentioning aspects that 
aint tacecraaRaEN haven't been covered. [We would 
welcome this input.—Ed./ Include 
your work environment (network, 
single-user, etc.); machine; any idio- 
syncracies or work requirements on 
programming style; and why the 
compiler you work with is the great- 
est thing since DDJ. 

Tom Hogan 
12801 Frost Rd. 
Kansas City, MO 64138 
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Now the biggest name 
in C compilers comes in a size 
everybody can afford. 


Lets C. 


Introducing Mark Williams’ $75 C compiler. Want to explore C programming for the first time? Or just 
on your Own time? Now you can do it in a big way without spending that way. With Let’s C. 

This is no little beginner’ model. Let’s C is a powerful programming tool, packed with all the 
essentials of the famous Mark Williams C Programming System. The one chosen by Intel, DEC, Wang 
and thousands of professional programmers. The one that wins the 
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by D. E. Cortesi 


Clinic to Close 

The Clinic opened for business in 
May 1981. Now, four and one half 
years later, career changes compel 
me to close it down. The landlord will 
soon install new and interesting en- 
terprises on the premises, but I 
thought I'd use our last meeting to 
look back and say thanks. 

Two things come to mind when I 
reflect on the column. The first is 
trivial: that damned editorial We. I 
can’t say why I hobbled myself with 
that foolish affectation in the first 
column nor why I didn’t drop it in the 
second, but I did and then I didn’t 
and from then on I felt compelled to 
continue an established style. 

The strongest impression I retain is 
of the quality of the DDJ readership. 
As originally conceived, this column 
was to be written mostly by its read- 
ers with the Intern editing and sup- 
plying continuity, like a radio talk 
show in slow motion. It never quite 
worked out; you readers never pro- 
vided enough original material to 
make a column. 

But you responded when your in- 
terest was caught—my goodness how 
you responded! I posed Don Taylor’s 
highly abstruse problem in the math- 
ematics of graphics and a dozen of 
you sent detailed, multipage discus- 
sions heavy with matrix notation. I 
put up David Ross’s BASIC program 
and 20 of you sent line-by-line discus- 
sions of what it did and how to do it 
better. Although the column was nev- 
er written by readers in the way origi- 
nally planned, you did supply a lot of 
material, correct a lot of my mis- 
takes, and lend me your enthusiasm 
over the years. 

Many of those who wrote were 
made into co-columnists and quoted 
in the various issues by name. They 
are named once more, with the issues 
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they graced by their presence, in the 
following list. For every one of those 
mentioned there were often two, 
three, or a dozen more who had the 
same insight but wrote later or in a 
less quotable way. My personal 
thanks to all who wrote—it’s been a 
privilege to associate with such a 
classy bunch. You folks keep up the 
good work, you hear? 


Allison, Dennis 8/81, 10/81 

Amelang, Loren 2/83 

Asay, Matt 10/81 

Ashley, Allen 7/81, 10/81 

Backus, Rex 4/85 

Bacon, Phillip 7/81 

Baenziger, Peter 8/84 

Barker, L. 7/81, 10/81, 
11/81, 10/82, 
10/83 

Barker, David 11/85 

Barr, Michael 5/84, 8/85 

Bates, Dan 9/81 

Becus, GeorgesA. 9/81 

Behler, Alan 5/83, 11/83 

Bomberger, Alan 10/83 

Brickell, Gavin 10/82 

Briggs, R. C. 8/84 

Brown, Russel 8/81 

Butler, Edmund 7/81 

Cage, Thomas W. 2/85, 6/85 

Caldwell, Taylor 8/81 

Canniff, Paul 4/85 

Carr, Thomas E. 9/81 

Carter, Everett 8/85 

Castle, Pat 2/85 


Chrapkiewicz, Thomas 8/84 


Clark, David 2/84 
Crowfoot, Norman 9/81 
Dale, Gary 1/85 
Davis, Charles 5/85 
Davis, M. Patton 10/81 
Dayhoff, Edward S. 11/81 
Dempsey, J. 3/83 
Dinsmore, Perry 11/84 
Dodd, Michael S. 11/85 
Driscoll, Michael 9/81 


Dugan, Dan 
Edgar, Gerald 
English, Glenn 
Enterline, Tom 
Falk, Richard 
Farmer, Wayne 
Fay, Jack 

Feign, David 
Floyd, Chet 
Fordham, Malcom 
Fritz, Randolph 
Gardner, Calvin L. 
Glassey, C. Roger 
Goldman, Oscar, 
Goodman, Bob 
Grant, Steve 
Greenlaw, Richard 
Gunn, John Paul 
Hahn, Harvey 
Hammond, Nick 


Head, Gene 
Hills, Terence 
Hoats, David L. 
Hoffman, Lee H. 


Hole, Dr. William T. 


Hoolko, Bob 
Howell, Edgar 
Howell, Jim 


Hutchinson, Aubrey 


Hutchinson, W. G. 
Irving, Dwight 
Jackson, Terry 


Jensen, John Thayer 


Johnson, Bruce R. 
Johnston, Bill 
Jones, James 
Kellogg, David 
Kendall, Bruce 
King, David 
Knipp, Ernest 
Koehler, W. B. 
Komusin, Bruce 
Lane, Tom 
Laurino, James 


Leonard, M. David 


Levy, David 


4/82 

7/81 

11/85 
8/84 

3/84 

8/81, 10/81 
11/85 
8/84 

9/84, 2/85 
4/84 

5/83, 6/83 
8/84 
12/81 
5/84 

7/81 

8/84 
10/81 
2/85 

5/83 
10/82, 6/83, 
10/83, 10/85 
12/81 
11/81 
12/81 
2/85 

2/85 

7/81 

4/82 

5/82, 2/84, 
4/85 
2/83-6/83 
4/82 
11/83 
2/85 

6/83 

2/85 

12/81 
4/85 

6/83 

8/82 

2/84 
10/82, 2/83 
11/83 
4/82, 5/82 
7/82 

1/82, 7/83 
7/81 

7/82 
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Lurie, Robert 10/81 Shapin, Ted 4/84 Tilton, David S. 8/84, 10/84, 


McDaniel, C. T. 7/81 Shaw, David A. 1/82, 4/82 1/85, 4/85 
McDermott, Joseph 3/84 Shaw, Jim 5/82 Throckmorton, Jerry 10/81 
McKeon, Brian 4/85 Shochat, David 11/85 Trout, Dana 10/82 
McLanahan, David 1/84, 4/84, Shuman, Dave 11/85 Wagner, R. C. 7/84 
8/84 Smith, Billy 11/81 Watzman, Barry 8/85 
McWorter, William A. 9/81, 5/83 Smith, Burks 10/82, 2/83 Wendel, J. G. 8/81 
Manay, Martin 10/81 Smith, Roger 8/85 Wilkinson, Bill 7/82 
Manns, Larry 11/85 Snow, J. R. 8/81 Wilson, Ed 7/81 
Marchand, Fred 1/85 Stanek, Mitchell 9/81 Wochnik, Michael 8/81 
Marshall, Charles 3/84 Sullivan, Dave 4/84 Wright, Don 9/82 
Martin, Charles 2/85 Swearingen, Roger V. 2/85 Vieau, Dean 9/81 
Martin, John H. 8/81 Taylor, Bob 6/83 DD} 
Martin, Robert 10/81 Taylor, Don 4/82, 8/82, 
Medlock, C. W. 5/ 84 ; 5/ 83 Vote for oat ie tenes 
Mesirov, Dick 3 / 84 Thier, U. 7 y 84 Circle Reader Service No. 190. 
Metzenthen, Bill 8/84 
Meyer, Mike 10/84 


Montgomery, Owen 5/84 

Moore Brian ¥ 3 DISCOVER THE LANGUA Z E; 
Neuhaus, Prof. H. J. is OF ARTIFICIAL a 
Nevtersive 2/8 || INTELLIGENCE 


Norling, Richard D. 11/84 
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Novosielski, Gary P. 11/81 






At last! A Prolog with enough muscle to handle > 
Nowell, Scott 11/81 real-world applications for UNDER $100! Discover “@ige 
Oakland, Richard L. 1 1/ 85 why Japan has chosen Prolog as the vehicle for their 
Oster, David 4/83 “Fifth Generation Machine” project to design 
Raiver. John 10/82 intelligent computers. 
Pasky, Robert 8/82 ee FROM TWO GREAT VERSIONS: 


Pearson, Peter K. 8/85 
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Pierce, John 7/81 a 
Pirko, Robert 3/83, 6/83, $9995 $6995 
: 7/ 83 5 More Than 100 Predefined 5 70 Predefined Predicates 
Poli, Ray 4 ‘ 82 eae ica et daoes QO pes Memory Model 
. . 0 Large Memory el (to 0 Integer Arithmetic 
Prince, Dr. Timothy th 2/85 oO Floating Point Arithmetic 0 122- Page User's Manual 
Pritchard, Steve 9/81 YR ie ee and Tuipriel 
Pulver, Dusty 5/82 sparenining Pesieaion UNBELIEVABLE UPGRADE POLICY 
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A New Shell for MS DOS, Part 7: 
IBM Cursor Control and an Fgets that Eats 


by Allen Holub 


Back in March we presented a new 
root module for the CP/M-80 version 
of the Aztec C compiler. Since then, 
several people have written to say 
that the proper place for wildcard ex- 
pansion, pipes, redirection, and the 
like is in the shell (1.e., the command 
interpreter), not in the C root mod- 
ule. There’s no point in bloating the 
size of your programs when you don’t 
have to. I sympathize with this atti- 
tude, but frankly, I don’t want to 
write a new CCP for CP/M. Digital 
Research just makes this process too 
hard. 

MS DOS, however, is another mat- 
ter. The command interpreter, com- 
mand.com, is just a program and can 
be replaced with any other program. 
Moreover, the DOS interface library 
provides much more in the way of 
system level functions than does CP/ 
M. Most important, DOS Version 2 
and higher supports an exec function 
that allows one program to load and 
execute a second program. 

Because most of my gripes about 
MS DOS are really aimed at the be- 
havior of command.com, it seemed to 
me that writing a new shell for MS 
DOS would be more productive than 
complaining for the rest of my life 
about the features I didn’t have. C is, 
after all, a language remarkably well 
suited for writing operating systems. 
So, over the next few months we will 
look at a new shell for MS DOS. 

I’ve implemented most of what I 
like about the the Unix C and Bourne 
shells: command line wild card ex- 
pansion, redirection, history, shell 
variables, a reasonable language for 
writing shell scripts (.bat files under 
MS DOS) and the lot. I’ve also taken 
the opportunity to add a couple of 
features that I’ve often wished were 
present in the Unix shells, such as an 
interactive command line editor. 
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String Routines 

We'll start looking at the shell itself 
next month. This month we’re going 
to look at several support routines. As 
usual, these are all designed to be 
useful in their own right. They make 
up five sets. The first three listings 
are routines for string manipulation. 
They are small, but useful. Next( ) 
(Listing One page 19) gets from a 
string the next object separated by a 
delimiter. Its calling syntax 1s: 


char *next( linep, delim, esc ) 
char **linep; 
int delim, esc; 


Linep is the address of a pointer that 
points at the first character of the 
string to be processed. Delim is the 
delimiter that separates objects. Esc 
is an escape character. The routine 
skips leading white-space (a space or 
tab) and remembers the position of 
the first non-white character. It then 
looks for a delimiter not preceded by 
an escape character and replaces the 
delimiter with a ‘\0.’ It returns a 
pointer to the remembered non-white 
character and it modifies *linep to 
point to the first character beyond 
where the delimiter used to be. It 
won't modify *linep to point past the 
end of the string. If delim is a white 
character, leading white space won’t 
be skipped. 

Listing Two (page 19) and Listing 
Three (page 19) are two routines for 
copying. Cpy(dest,src) is functionally 
the same as strcpy( ). It copies the 
source string (src) to the destination 
string (dest). There is, however, one 
difference: whereas strcpy returns its 
first argument, cpy returns a pointer 
to the NULL at the end of the desti- 
nation string. This allows us to add 
onto the destination string without 
first having to scan through the string 





to find its end. The second copy rou- 
tine is cptolower(dest,src). Cptolower 
works just like cpy( ), except all up- 
percase characters are mapped to 
lower case as they are copied. 


Moving the Cursor and Writing 
Characters 

Listing Four (page 20) is a collection 
of low-level routines for cursor ma- 
nipulation and character output for 
the IBM PC. These routines use direct 
ROM BIOS calls, and so are much 
faster than the usual output routines, 
which use the normal DOS func- 
tions!. Moreover, they let you move 
the cursor around without having to 
install the ANSI.SYS driver, which is 
excruciatingly slow. IBM has been 
very good about maintaining the 
ROM BIOS interface over different 
versions of the operating system. As 
long as you access the BIOS via the 
correct interrupt mechanism, the 
routines are portable. 

I’ve used the int86(_ ) function from 
Lattice to generate the system video 
interrupt. Microsoft C has an identi- 
cal function, so these routines will 
port to Microsoft C without any 
problems. The dos(_) function printed 
in this column in July 1985 can also 
be modified quite easily to generate a 
video interrupt. Just replace the INT 
21H instruction on line 68 with an 
INT 10H instruction. 

Listing Four contains the following 
routines: 


getpage( ) 

This routine gets the currently active 
video page. When you are in text 
mode, several pages are available for 
writing, though only one is displayed 
at any given time. Getpage( ) returns 
the number of the page now being 
displayed. This information is needed 
by some of the other routines. 
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cursize(top, bot) 

This routine adjusts the cursor size. 
Every character is represented on the 
display by a fixed number of scan 
lines. Cursize( ) causes the cursor to 
extend from the top scan line indicat- 
ed to the bottom line indicated. For 
example, the standard monochrome 
display uses 14 lines numbered 0-13, 
the color adapter uses 8, numbered 
0-7. So, on the color adapter, a nor- 
mal underline cursor can be set up 
with the call cursize(6,7). You can 
make a large block cursor with the 
call cursize(0,7). Cursize(7,0) cre- 
ates a two-part cursor, one line over 
the letter and a second line under the 
letter. Cursize(8,8) will make the 
cursor disappear. 


posn = gcur(pagenum); 

int pagenum; 

short posn; 

This routine returns the position of 
the cursor on the indicated video 
page. The position is returned in a 
single 16 bit short; the row number is 
in the top byte and the column num- 
ber is in the bottom byte. 


scur(posn, page) 

short posn; 

This modifies the cursor to rest at 
posn, which may be a value returned 
from gcur( ). 


posn = getcur‘( ); 

setcur(posn); 

These routines work just like scur( ) 
and gcur( ) except that they access 
the page currently being displayed. 


wchar(c) 

int ¢; 

This routine writes a single character 
to the screen. It is dramatically faster 
than putchar( )—at least the one that 
comes with the Lattice compiler. 
Wehar( ) moves the cursor as it 
prints, just like putchar( ). However, 
the only control codes it recognizes 
are carriage return (\r), line feed 
(\n), bell (\007), and backspace 
(\b), so don’t expect it to expand 
tabs. Also, \n is not interpreted as a 
“newline,” but as a line feed. That is, 
it will get you to the current column 
on the next line. Use \r to get to the 
left edge of the current line. 
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wstr(s, move) 

char *s; 

int move; 

This routine prints an entire string to 
the screen. If move is true, the cursor 
ends up positioned just past the end 
of the printed string. Otherwise, the 
cursor remains over the first charac- 
ter of the string. Wstr( ) uses 
wchar( ) as its output function. 


An Fgets( ) that Edits 

Listing Five (page 20) is an editing 
input function. Let me point out at 
the start that this function is general 
purpose in nature, even though it’s 
written specifically for an IBM PC. 
It’s a relatively simple matter to mod- 
ify the routines for any terminal that 
has an addressable cursor. The pri- 
mary access routine in this module is 


char *efgets(buf, maxline, fp) 
char *buf; 

int maxline; 

FILE *fp; 


This is functionally similar to 


fgets( ), though there are several ma- 
jor differences. First, a pointer to the 
end (instead of to the start) of the 
loaded buffer is returned on success. 
A NULL is still returned on end of 
file. Second, line continuation is sup- 
ported. If a line ends with a backslash 
(\), the backslash is deleted and the 
line is concatenated with the next 
line. The major differences from 
fgets( ) are apparent when fp is set to 
stdin. In this case several interactive 
editing functions are supported: 


¢ LEFT-CURSOR (hit the left cursor 
key) moves the cursor to the left 
without erasing anything. 

¢ RIGHT-CURSOR moves the cursor 
to the right. 

e ~LEFT-CURSOR (hold down the 
CTRL key and hit the left cursor key) 
positions the cursor at the beginning 
of the previous word. 

¢ “RIGHT-CURSOR positions the 
cursor at the beginning of the next 
word. 

¢ HOME positions the cursor at home 
position on the current line. Home is 


MS-DOS, UNIX, “\:PLE MAE, GP/i> 


NETWORKS ac) JOKE. 
OLE G-crec ISAM HOLES THIET, ALL 


$395 COMPLETE 


Specify diskette format: 
e 514" MS-DOS 

e 8” CP/M 

@ 3'A” Mac 

e8” RT-I| 


Ry 


FF 
‘a> 


For VISA, MC and COD orders 
call (314) 445-6833 

FairCom 

2606 Johnson Drive 

Columbia, MO 65203 


© 1985 FairCom 





The following are trademarks: c-tree and the circular disk logo—FairCom; MS—Microsoft Inc.; 
CP/M and Access Manager—Digital Research Inc.; Unix—AT&T; Apple—Apple Computer Co. 
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defined as the position of the cursor 
when the routine was entered. For ex- 
ample, if the cursor was in column 5 
when efgets( ) was called, HOME 
puts it back in column 5. In fact, in 
this example there’s no way to get the 
cursor into columns |- 4 from efgets. 
If a line is continued with a \<CR> 
combination, the cursor is moved to 
the HOME position of the next line, 
not to the left edge of the screen. 

¢e END positions the cursor just after 
the rightmost character on the line. 

e ESC is for an abort. The buffer is 
cleared, but the characters on the 
' screen are not erased. The routine re- 





turns immediately. —1 is returned 
when an ESC is encountered. 

¢ DEL deletes the character on which 
the cursor is resting and closes up the 
rest of the line to fill the gap. (1.e., if 
you delete the X in the string 
‘‘aaaaXoooo,” you end up with 
‘‘aaaaoooo on the screen, rather 
than “‘aaaa 0000’’). 

¢*H is a destructive backspace. It 
moves the cursor left one space and 
then deletes that character, closing 
up the line to fill the gap. 

¢ *X erases the entire line and clears 
the buffer. However, efgets( ) doesn’t 
return. 


Objective-C 


18 Circle no. 140 on reader service card. 


e*M (CR) or Enter (LF) positions 
the cursor at the left edge (not the 
home position) of the next line and 
cause efgets( ) to return to the caller. 
A pointer to the end of the buffer (to 
the \O) is returned on success, NULL 
on end of file. 


Typing any printing character causes 
that character to be printed at the 
current cursor position and the cursor 
to move right one space. Typing any- 
thing else has no effect. The cursor is 
never allowed to go past the end of 
the buffer, as specified by the param- 
eter maxline in the efgets( ) call. 
However, when in editing mode, the 
cursor is not allowed to go past the 
end of the current line, even if max- 
line is longer (the bell will ring if you 
try). In this case, you can get to the 
next line with a \<CR>, but you 
can’t edit anything on the previous 
line. 


Conclusion 

So that’s the beginning. Next month 
we'll add some more routines to the 
pile and incorporate them into a sim- 
ple MS DOS shell. In the following 
month we'll add various capabilities 
to that shell. 


| [IBM PC readable versions of the 


listings for the entire shell and for 
MS DOS versions of various Unix 
utilities (e.g., grep, ls) will be made 
available through DDJ in the next 
couple of months. Watch this column 
for more details.—ed| 


Notes 

| An excellent description of the IBM 
BIOS routines and how to use them 
is in The Peter Norton Program- 
mer’s Guide to the IBM PC, by Pe- 
ter Norton (Bellevue: Microsoft 
Press: 1985). 


DD) 


(Listing begins at right) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 191. 
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C Ch es f (Text begins on page 16) 
Listing One 


/* NEXT.C: Skip to the next delimiter seperated object 


i 

os. ® 

a5. */ 

qs 

ae edefine iswhitete) (cy ser * 8 1 teys = (NGS. J tey ee hn” } 

6: 

a 

8: char *next( linep, delim, esc ) 

93: char **tlinep; 

Oo: { 

LF: /* Linep is the address of a character pointer that points to 

12: * a string containing a series of delim seperated objects. 

eo: * Next will return a pointer to the first non-white object in 

14: * *linep, replace the first delimiter it finds with a null, and 
15's * advance *linep to point past the null (provided that it's not 
16: * at end of string). ® is returned when an empty string is passed 
7: * to next(). White space may be used as a delimiter but 

18: * in this case white space won't be skipped. A delimiter preceded 
19: * by "esc" is ignored. Quoted strings are copied verbatim. 

208: * / 

21: 

22% register char *start, *end ; 

233 int inquote = 6; 

24: 

25% LE(: {**#Linep 4 

26: return @; 

re 

28: start = *linep; 

29's 

30: if( tiswhite(delim) ) 

31 for( ; iswhite(*start) ; start++ ) 

32 : 

a3 

34: for( end = start; *end && (*end != delim || inquote) ; end++ ) 
35-2 

36: if( *end == esc && *(end+l) ) 

372 end++; 

38: 

39: else if (-*end ==.'** [Lf Send == .'\'") 

46: inquote = ~inquote; 

41; } 

42: 

AS: if( *end ) 

44: tend++ = '\@'; 

45: 

46; *linep = end; 

47: return start; ee 
48: } End Listing One 

@ @ 
Listing Two 

1+. char cptolower( dest, src ) 

2: char *dest, *sre; 

eet 

4: /* Copy src to dest, mapping all upper case letters to lower 
52 * case. src and dest may be the same, 

6: * / 

ie 

S for(:-*sre ~~ srct+*: ) 

9: *dest++ = (‘'A* <= *erc && *Sre. <=.'Z") 

10: 7 Rare. + {Sate A*)- 32 sere “3 

dis *dest = '\O' ; 

kas return dest. <- te 
13%} End Listing Two 

e @ 

Listing Three 

l: char *ecpy( dest,;.-sre .) 

2: char *dest, *srce; 

3s 

4: /* Works like strcpy but returns a pointer to the new end 
So * of string (ie. to the null). 

6: */ 

a 

8: while( *src ) 

3 *dest++ = *srct++ ; 
16: 
ll: *dest = @; 

a2 eturn dest; sie 
se } ce 5 End Listing Three 


(Listing Four begins on next page) 
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For 
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SYSTEMS | 






Now you can add the MOTOROLA 68000 
16/32 Bit Processor to your PC via use of 
the Pro 68 Advanced Technology Co- 
Processor. Enjoy all of the performance 
benefits of the 68000 processor without 
sacrificing your current PC system. Con- 
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of Pro 68: 


e High Speed MOTOROLA 68000 micro 
processor 
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disk directory, record and file 
lock, pipes and filters 
— Full suite of development tools 
— UNIX V compatible ‘‘C’’ compiler 
— Optional languages include 
BASIC, ISO PASCAL, FORTRAN 
TT. 
Pricing from $1195 includes Pro68 with 
256K, OS, and MS/PC DOS RAM disk 
driver. HSC also manufactures and mar- 
kets a full line of co-processors and 
RAM disks for use on Z80 based systems. 


DISTRIBUTORS: 


Australia-Computer Transition S' *tems 
. . .03-537-2768 
Great Britain-System Science 
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West Germany-DSC International 
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sy 
Paterna Il 


267 North Main Street 
Herkimer, NY 13350 
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C Ch es f (Listing continued, text begins on page 16) 


e e 

Listing Four 

l: tinclude <stdio.h> 

2: tinclude "/lc/dos.h" 

33 

4; /* VIDBIOS.C Various cursor and i/o routine using 

SE, ace the bios interrupts (see below for greater detail): 
Cen) = 

Phar /© Copyright (C) 1985 Allen I. Holub. All rights reserved. 

og): 78 

Se Externally accessable routines: 
1Ge 

3% int getpage () Get active video page # 
cose void cursize (top,bot) Set cursor size 

bee o8 void scur (posn, page) short posn; Set cursor position 

ALS JF short gcur (pagenum) Get cursor position 

155 1'* void setcur (posn) short posn; Set cur pos on current page 
1635. 9% short getcur () Get cur pos from cur page 
Ve. 5 void wechar (c) write a single character 
18:8 wstr wstr (s, move) char *s; write a string 

19\3-> * 
20: */ 

21: 
22: #define VIDEO_INT 8x18 /* Video interrupt */ 
23 

24: #define CUR_SIZE xl /* Set cursor size */ 
25: #define SET_POSN 8x2 /* Modify cursor posn */ 
26: #define READ_POSN 6x3 /* Read current cursor posn */ 
27: #define WRITE_‘I'TY Oxe /* Write character & move cursor */ 
28: #define GET_VMODLE Oxf /* Get current video mode & disp pg */ 
29 

30; [*--------- nn nn nn */ 
32: 

32: static union REGS Regs; 

a33 

Bag [Beene mann mn OE */ 
25% 

363 int getpage() 

37e 1 

38: /* Returns the currently active display page number 

39 */ 

48; 

41: Regs.h.ah = GET_VMODE; 

42: int86( VIDEO_INT, &Regs, &Regs ); 

43 

44; return (int) Regs.h.bh ; 

45: } 

46: 

A750 [Seer eee e ee ae ee ee see ee es eer semen ert sense ee ef 
48: 

49: cursize( top_line, bot_line ) 

50: { : 

Si: /* Scan lines are numberd ® at the top and 7 at the bottom. 
a2 - if the two are reversed you'll get a 2 part cursor. 

54% * Top_line determines the position of the top scan line 

54: * of the cursor, bot_line is the bottom. A normal cursor 

55% * can be created with cursize(6,7). Cursize(@,7) will 

a6: . fill the entire area occupied by a character. Cursize(@,1 
oe . will put a line over the character rather than under it. 
58: */ 

59 

68: Regs.h.ch = top_line ; 

61: Regs.h.cl = bot_line ; 

62% Regs.h.ah = CUR_SIZE ; 

63: int86( VIDEO_INT, &Regs, &Regs ); 

64: } 

65: 

663 [Bann nn nn nn */. 
67: 


68: scur( posn, pagenum ) 
69: short posn; 


70: { 

Tls /* Modify current cursor position. The top byte of "posn" 
72: * value holds the row, the bottom by the column. 
32 . Pagenum is the video page number. 

74: */ 

75 

76: Regs.x.dx = posn ; 

77% Regs.h.bh = pagenum ; 

78: Regs.h.ah = SET_POSN ; 

79: int86( VIDEO_INT, &Regs, &Regs ); 

88: } 

81: 

82: short gcur( pagenum ) 

83: { 

84: /* Get current cursor position. The top byte of the return 
85: . value holds the row, the bottom by the column. 
86: * Pagenum is the video page number. 

87: */ 

88: 

89: Regs.h.bh = pagenum ; 

96: Regs.h.ah = READ_POSN ; 

aa int86( VIDEO_INT, &Regs, &Regs ); 

93; return( Regs.x.dx ); 
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94; } 


I55 

96: /* Setcur and getcur work just like scur and gcur except that they 
Ss * access the current video page. 

98: */ 

99: 


1868: setcur( posn ) 


1861: short posn; 

102: 1 

183: scur( posn, getpage() ); 

164: } 

185: short getcur() 

106: { 

107: return gcur( getpage() ); 

188: } 

109; 

BEE: of Re en a er ee ee amet eee a eben s he niente eames */ 
LEE 

112: wchar( c ) 

x13: { 

114: /* Write a character to the screen in TTY mode. Only normal 
a35% = printing characters, BS, BEL, CR and LF are recognized. 
116: - The cursor is automatically advanced and lines will wrap. 
Liv: */ 

118; 

119: Regs.h.bl = @; /* Use current color */ 

126: Regs.h.al = c; 

121: Regs.h.ah = WRITE_TTY ; 

122: int86{ VIDEO_LINT, &Regs, &Regs ); 

Fe33°+} 

124: 

125: wstr( str, move_cur ) 

126: char *str; 

T27 { 

128: /* Write a string to the screen in TTY mode. If move_cur is 
129: = true the cursor is left at the end of string. If not 
130: « the cursor will be restored to its original position 
131; * (before the write). 

132: */ 

133: 

134: register short posn; 

135% 
cd SSS if( !move_cur j) 

E372 posn = getcur(); 

138: 

139: while( *str ) 

148; { 

141: Resgs.h.bl = 6 ; 

142: Regs.h,al = *str++ ; 

143: Regs.h.ah = WRITE_TTY ; 

144: int&6( VIDEO_INT, &Regs, &Regs ); 

145: } 

146: 

147: if( !move_cur ) 

148; setcur( posn ); 

149: } 

158: 

LSU gf Rew a ea a ee in a tee ee eq eee nee eo ebb ae te eee nt */ 
152: #ifdef DEBUG 

153% 

154: main() 

is5:- { 

156: cursize( 8, 7 ); 

EOFs wstr( "The large cursor should be on the 'T'", @ ); 

158: getchar() ; 

4593 

168: eursize(:. 6, <7. )¢ 

L6L%2} 

162: bois 
163: tendif End Listing Four 

e e e 

[isting Five 

l: #include <stdio.h> 

2 

ae °/* EFGETS.C An editing version of efgets., Recognizes \<CR> 

a, 7% line termination and supports editing when input 

Se 38 is from stdin. 

6: * ; 

Fe 8 Copyricht (C) 1985 Allen I. Holub. All rights reserved. 

° * 

Be lt ape eee IN ech ed a gcc ot get NS Tles Oe at CP ee 
Les. .-9* 

ll: * Externally accessable routines: 

eee 5 ™ 

s33:5 * Void:  prall (bp, end, move ) Print string from bp to end. Move 
TA: * curser to end if move is true, 

15: .* char *egets (start, bufsize) Get a string from stdin w/ editing. 
16<-° % get at most bufsize-1l chars. 

Pees * char. .*getl (buf, maxline, fp) like fgets but returns pointer to 
re s°.2-* end of input string on success, 
19: * char *efgets (buf, maxline, fp) like getl but uses egets for 

20: * standard input rather than getc. 


( Continued on next page) 
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68010/68000 


Coprocessor for 
IBM/AT/XT/PC- 
8/10/12.5mz No Wait States 


$7395 arty. 1 


FEATURES 

e 1-2 MB RAM (1MB Standard) 
© 16K-64K EPROM 
e 2-8 Serial Ports 

Async/Sync/Bisync Communications 
e Battery-backed Real Time Clock 
e Battery-backed 2K-8K RAM 
e 2 Parallel Ports 
e Memory-mapped Dual-port BUS 
e 3-9 Users Per Board (3 Standard) 
¢ Up To 16 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 


SOFTWARE 


e OS9 (Powerful UNiX-like Multi-user OS) 

e CPM/68K 

e Software selectable OS including concurrent 
PC DOS/0S-9 or CPM/68K operation 

¢ Support Module for iBM Graphics 

e High-speed Local/Global Disk Caching 

e Basic. Pascal. Fortran. C. and COBOL 


IBM is a registered trademars of international Business Macties 
OS-9is a registered ademars of Microware Sys " 

CPM 684 1s a registered trademara of Digital Researem Core 
MA68000 MA68010 are registered trademaras of Moto oa 





TLM Systems 


4704 W. JENNIFER. SUITE 105 ¢ FRESNO. CA 93711 
209/276-2345 


Circle no. 173 on reader service card. 
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ROWING 1p? 


for C programs to 
compile and link? 


= 





Use C-terp 
the complete C interpreter 


This is the product you've been 
waiting (and waiting) for! 


Increase your promucdivity and avoid 
agonizing waits. Get instant feedback of 
your C programs for debugging and rapid 
prototyping. Then use your compiler for 
what it does best...compiling efficient code 
..SlOwly. 


C-terp Features 
e Full K&R C (no compromises) 


© Complete built-in screen editor-- 
no half-way house, this editor has every- 
thing you need such as multi-files, inter-file 
move and copy, etc. etc. For the ultimate 
in customization, editor source is available 
for a slight additional charge of $98.00. 


e Fast-- Linking and semi-compilation are 
breath-takingly fast. (From edit to run 
completion in a fraction of a second for 
small programs.) 


® Convenient-- Compiling and running are 
only a key-stroke or two away. Errors 
direct you back to the editor with the 
cursor set to the trouble spot. 


© Object Module Support— Access functions 
and externals in object modules produced 
by your compiler. New: We are now 
supporting Microsoft 3.0, Mark Williams 
& Aztec C in addition to C.1.C86 & Lattice. 


¢ Complete Multiple Module Support. 


e Symbolic Debugging-- Set breakpoints, 
single-step, and directly execute 
C expressions. 


¢ Many more features including batch mode 
and 8087 support. 


® Price: $300.00 (Demo $45.00) MC, VISA 


Price of demo includes documentation & shipping within 
U.S. PA residents add 6% sales tax. Specify compiler. 


© C-terp runs on the IBM PC (or compatible) under DOS 2.x 


with a suggested minimum of 256Kb of memory. 
It can use all the memory available. 


CIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(21 5) 584-4261 


*Trademarks: C86 (Computer Innovations), Lattice 
(Lattice Inc.) IBM (IBM Corp.), C-terp (Gimpel Software), 
Microsoft (Microsoft), Aztec (Manx) 
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C C; h es f (Listing continued, text begins on page 16) 


@ so e 

[isting Five 

2A em 

aay OLS FILE *fip; 

Peete char. *buf, *bp, *end; 

aig me int move, bufsize, maxline; 

2597 eS 

26: 

27: extern int getpage (); /* Sources in vidbios.c */ 
28: extern void setcur (); /* - */ 
29: extern short getcur (); /* * */ 
38: extern void wchar ()3 /* , $ 
31: extern int dos (}3 /* Part of the Lattice standard library*/ 
32: extern void movemem (); /* ’ ry 
33 

34: /* Values returned from DOS when cursor keys etc. are hit: 

95%, FF 

36: 

37: define _LEFT 75 

38: #define _RIGHT 77 

39: #define _CTL_LEFT 115 

40; #define _CTL_RIGHT 116 

41: #define _INS 82 

42: define _DEL 83 

43: define _HOME 71 

44: define _END 79 

4S’: 

46: /* The above are mapped as follows by getkey 

27-5.) ee 

48: 

49: define LEFT 8x8 

58: #define RIGHT 6x81 

51: define CTL_LEFT 8x82 

52: define CTL_RIGHT 0x83 

53: #tdefine INS 8x84 

54: #define DEL 8x85 

55: define HOME 8x86 

56: #define END 8x87 

Shs 

58: #define BDOS_IN 8 /* raw (non echo) input function */ 

59: 

60: define CNTL_C 6x3 Bm Cae ee 

61: #define CNTL_Z Oxla [®t 2°>"E ety 

62: #define BEL 8x07 LR TE RZ 

63: define ESC @xlb fet Ol ae 

64: #define CAN 0x18 Fs TE ee 

65: 

66: 

67. [Rae a i Se SE EE TSE S HER SO mie mmm */ 
68: 

69: static int getkey () 

780: { 

re /* Return a key from the keyboard, Keys are gotten in raw 
1a = input mode and mapped as specified above if necessary. 
73: */ 

74: 

753 register int C3 

76: static int ateof = 0; 

104 

“783 if { abeoft. J 

79% return EOF; 

80: 

81: if( !(c = bdos(BDOS_IN)) ) /* Special function key */ 

82: { 

83: switch( bdos(BDOS_IN) 

84: { 

85: case _LEFT: return( LEFT 3 

86: case _RIGHT: return( RIGHT 3 

87: case _CTL_LEFT: return(: CTE LEFT +3 

88: case _C'l'L_RIGHT: return( CTL_RIGHT ); 

89; case _INS: return( INS 3 

90; case _DEL: return( DEL 3 

91: case _HOME: return( HOME 4 

92: case _END: return( END )? 

93: default: return( NULL 3 

94; 

953 

96: else if (-c s= "\rc'.) /* map ENTER key to '\n' */ 
97: 

98; return( ‘'\n' ); 

99 
106 else if( c == CNTL_C |] c == CNTL_Z ) 
181: 
182 ateof = 1; 
183 return EOF; 
104 } 
185 else 
186 return cC; 
107 
168: } 
189 
110: /*------------------------------------------------------~--------------- */ 
Bid 
112: ptail( bp, end, move ) 
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Lass 
114: 
115: 
116: 
117: 
118: 
119; 
126: 
tent 
122: 
£23 
124: 
£253 
126: 
rZ27% 
128: 
129: 
138: 
P51 
bd2¢* 
133: 
134: 
135: 


208: 
269: 
210: 


register char 


{ 


char 
char 


{ 


*bp, *end; 


/* Print out all characters between bp and end (inclusive) 
” without modifying the current cursor position. If move 
* is zero the cursor will not change position, otherwise 
Reis the cursor will be left pointing to the character 
+ referenced by end. 

* 


register short posn; 
if( !move ) 

posn = getcur(); 
for( ; *bp && bp <= end; 


. 
‘ 


wchar(*bp++) ) 


if( !move ) 
setcur( posn ); /* put cursor under first character */ 
else 


wchar('\b'); /* put cursor under last character */ 


assures arent ip Senora pthc load Ria Masta tire ailiaT alte a hea asi erell Sig ciel tinis itp. aaah sed at ood omrioitag eda glen anand */ 
*egets( start, bufsize ) 
*start; ‘ 
/* Get a string with editing. If bufsize is wider than your 
P screen, strange things will happen when you try to use 
* the editing functions, If you access this function 
* via fgetline() then it will input longer lines in 78 
. character chunks and \<CR> can be used to extend a line. 
* 
* “H or BACKSPACE Destructive backspace, close up 
. remainder of string to fill hole. 
* LEFT CURSOR Non-destructive backspace 
* RIGHT CURSOR Move right one character. 
* “LEFT CURSOR Left to previous word or line start 
= “RIGHT CURSOR Right to next word or line end 
* HOME Left edge of line 
* END Right edge of line 
> CR or LF Terminate line. 
‘ 1s Erase entire line but don't return. 
* ESC Return a null string immediatly. 
- DEL Delete a current cursor position and 
x 


close up to fill hole. 


* Any printing character Enter that char at cursor posn 
* Anything else Ring the bell. 
* 
* The bell will also ring if you try to move the cursor 
* past either the left or right edges of the buffer. 
* Return a pointer to the end of string normally, return 8 
* on EOF and return -l when ESC is encountered. 
ed 
register char *bp; /* Points at current cursor position */ 
register char ‘*end; /* Points at largest possible cur pos. */ 
register char *maxbp; /* Points at rightmost char on line */ 
register int a /* Current character. */ 
short home; /* place to remember the leftmost cursor 
* position. 
*7 
end = start + (bufsize-1l) ; 
tend-- = '\®@' ; 
bp = start; 
maxbp = start; 
/* Fill the entire buffer with spaces 
7. 
home = getcur(); /* Get the current cursor */ 
/* position. */ 
if( *bp ) /* If the buffer isnt empty */ 
{ /* print out its contents */ 
while( *bp ) /* and set maxbp to point */ 
wcehar( *bpt++ ); /* at the previous end of */ 
maxbp = bp; /* string. */ 
setcur( home ); 
} 
for( ; bp <= end ; *bp++ = ' ° ) /7/* and then fill the rest */ 
. /* of it with spaces. ay 


bn = start; 


/* bp points into the bufer at the current cursor location. 
. end points at the righmost place that the cursor movement 
- commands can get us. There is actually one more place 
* in the buffer. Get the line: 
= 

while( (c = getkey()) != '\n' && c != EOF ) 


switch( c ) 


(Continued on next page) 
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Number One 
In Performance 


Hard Disk 
Intelligent 


VCR Backup 
for AT/XT/PC 


FEATURES 


High speed microprocessor 
controlled backup (68008) 
e Two channel interface 


e Built in LAN channel 


e Software control of most VCR 
functions including Fast Forward, 
Rewind, and auto backup using VCR 
timer capabilities 


e Economical VHS or Beta formats 


TLM Systems 


4704 W. JENNIFER, SUITE 105 ¢ FRESNO, CA 93711 
209/276-2345 


Circle no. 174 on reader service card. 
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e Execute DOS level commands 

in HS/FORTH, or execute DOS 

and BIOS functions directly. 

® Execute other programs under 
HS/FORTH supervision. 
(editors debuggers file managers etc) 

¢ Use our editor or your own. 

© Save environment any time 
as .COM or .EXE file. 

° Eliminate headers, reclaim 
Space without recompiling. 

e Trace and decompile. 

® Deferred definition, 

execution vectors, case, 

interrupt handlers. 


FORTH 


® Full 8087 high level support. 
Full range transcendentals 
(tan sin cos arctan logs exponentials) 
® Data type conversion and 
|/O parse/format to 18 
digits plus exponent. 
®* Complete Assembler 
for 8088, 80186, and 8087. 
¢ String functions - 
(LEFT RIGHT MID LOC COMP 
XCHG JOIN) 
Graphics & Music 
Includes Forth-79 and Forth-83 
File and/or Screen interfaces 
Segment Management 
Full megabyte - programs or data | 
Fully Optimized & Tested for: 
IBM-PC XT AT and JR : 
COMPAQ and TANDY 1000 & 2000 
(Runs on all true MSDOS 
compatibles!) 
® Compare 
BYTE Sieve Benchmark jan 83 
HS/FORTH 47 sec BASIC 2000 sec 
with AUTO-OPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 55-140 sec 
FASTEST FORTH SYSTEM 
AVAILABLE. 
TWICE AS FAST AS OTHER 


FULL MEGABYTE FORTHS! 
(TEN TIMES FASTER WHEN USING AUTO-OPT)) 


HS/FORTH, complete system only: $270. 
"a Visa Mastercard SS 


HARVARD 
SOFTWORKS 


P.O. BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 








Circle no. 132 on reader service card. 
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Bad * 
212: 
Z1i33 
214: 


215: 
216: 
217: 
218: 
219: 
226: 


222: 
2233 
224: 
vent 
226: 
F21% 
228: 
229: 
238: 
231% 
noe 
 E 
234: 
235: 
236: 
2573 
238: 
234s 
248: 
241; 
242: 
243: 
244: 
245: 


247: 
248: 


296: 
291: 


302: 


PRI ME FE ATU Re ES C i hes f (Listing continued, text begins on page 16) 


Listing Five 


{ 


case LFFT: /* Non-destructive backspace */ 


if( bp > start ) 


{ 
wchar( '\b' ); 
~-bp; 
break; 


} 


wchar( BEL ); 
break; 


case '\b!: /* Destructive backspace */ 
if( bp <= start ) 
{ 
wchar( BEL ); 
break; 


} 


wchar( '\b' ); 
~-bp; 


/* fall through to delete case */ 


case DEL: /* Delete character and close up */ 
if( bp >= maxbp ) /* nothing to delete a/ 
break; 


movmem ( bpt) bp, maxbp-bp ); 


*maxbp = ' 
ptail( bp, auebpee ~.8he 
break; 
case CTL_LEFT: /* Cursor to start of previous word */ 


if( bp > start ) 
{ 


do { 
--bp; 
wehar( '\b* ); 
} while( bp > start && *bp == ' ' ); 
while ( bo Setart.:6&.:*bp j= ".' } 
{ 
--bp; 
wehar( '\b' ); 
} 
if( *bp == ' ' ) 
wchar( *bp++ ); 
break; 


} 


wchar( BEL ); 
break; 


case HOME: /* Cursor to left extreme */ 
bp = start ; 
setcur( home )-> 
break; 


case ESC: /* Erase entire line and return */ 
*start = @; 
wehnar( (\5" “33 
wchar( '\n' ); 
return -l ; 


case CAN: /* Erase entire line */ 
setcur( home ); 
for( bp = start; bp < maxbp; *bp++ = ' ‘) 
wchar(' '); 


setcur( home ); 
maxbp = bp = start: 


break; 

case RIGHT: /* Cursor right one character * / 
wchar( ( bp < end ) ? *bp++ : BEL ); 
break; 

case CTL_RIGHT: /* Advance to next word */ 
while( bp < maxbp && *bp != ' ' ) 


wchar( *bp++ ); 


while( bp < maxbp && ‘*bp == ' ' ) 
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3838 wchar( *bp++ ); 
384: 

385: break; 

306: 

307: case END: 

308: 

309: if( bp < maxbp ) 
318: { 

SLL ptail( bp, maxbp, 1 ); 
312% bp = maxbp ; 

a1 } 

314: break; 
313 

316: default: 

Si78 /* 
318: * 
319: * 
326: * 
S214 */ 
322: 


323% ro bp <= end: 6& ~(" ‘ <=. c &&.c < BxTE)- } 


/* Go to right extremity */ 


If we aren't at the right-most extreme 
of the buffer, move the tail over to 
make room for the current character, 
else just print it. 


324: 


320% if( bp < maxbp ) 
326: { 

Sas if( maxbp < end ) 

328% maxbpt++ ; 

329: 

330% movmem( bp, bp+l, end-bp ); 

eB ptail ( bp, maxbp, B ); 

332: } 

333: 

334: wchar(c ); 

335: 

336: if( bp < end ) 

337% *bpt++ = c; 

338: else 

339: { /* we're at the */ 
340: wehar( '\b' );/* right margin */ 
341: wchar( BEL ); /* back up and */ 
342: *bp =c ; /* ring the bell */ 
343: } 

344: 

345: if( bp > maxbp ) 

346: maxbp = bp; 

3473 

348: break; 

349: } 

358: 

3513 break; 

352: } 

353: } 

3543 

355% /* Delete trailing whitespace, terminate the string, go 

356: * to the next line, and return EOF if we're at end of 

aor? . file, the end pointer otherwise. 

358; */ 

3593 

366: for( ; *end == * § && end >= start ;.--end ) 

361: : 

362: 

363% *++end = '\G'; 

364: wchar( '\r' ); 

365: wchar( '\n' ); 

366; 

3673 return (c == EOF && start == end ) ? NULL : end ; 

3638: } 

369: 

SIO ed) [Bee 6 SE Re EB 8 eS ee mn nae */ 
pe 

Siz: Char *getl( buf, maxline, fp ) 

373: char *buf; 

374: FILE *fp; 


375: { 

376: | Works exactly like fgets but returns a pointer to the 
3173 * end of the string on success. 

378: */ 

aro 

389: reaister int C3 

381: register char *bp = buf; 

382: 

A833 while( (c = fgetc(fp)) != EOF && c != '\n' && --maxline > @ ) 
384: *bp++ = c; 

38S 

386: top = "\Ol.; 

$673 

388: return( (c == EOF && bp == buf) ? NULL : bp ); 

389: } 

398: 

3912 [8p Hn — HH */ 
392°: 

393: char *efgets( buf, maxline, fp ) 

394: char *buf ; 

395: FILE *fp ; 

396: { 

397: /* An editing version of fgets. 

398: * Works like fgets but recognizes a back-slash at end of line 
399: * if fp is stdin then raw i/o is used and various editing 
408: * functions are enabled (see egets for details). A pointer 


(Continued on next page) 
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IBM/AT/XT/PC- 8mz 
No Wait States 


FEATURES 


e 64K-256K RAM 
e 2K-8K EPROM/Static Ram 
@ 2 Serial Ports 

Async/Sync/Bisync Communications 
e Real Time Clock 
e Memory-mapped Dual-port BUS 
e On-board/Remote Reset NMi capability 
e Up To 32 Boards Per AT/XT/PC 
e Can Operate As Standalone Processor 
e Less Than Full Size Board 

(will fit other compatables.) 


SOFTWARE 


e ZP/Mtm CP/M Emulation Software 
(Supports Most CP/M Software) 

e Multiuser Capability if Used As A 
Slave Processor 


IBM ts aregistered trademark of Intermational Business Machines 
CPM /80 15 a registered trademark of Digital Research Corp 


TLM Systems 


4704 W. JENNIFER, SUITE 105 e FRESNO, CA 93711 
209/276-2345 


Circle no. 175 on reader service card. 
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Byte Magazine called it. 


“CIARCIA’S 
SUPER 
SYSTEM” 6 


“1g 


The SBI80 
Computer/Controller 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4° x 7%” single board system. 


6MHz 64180 CPU 


(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 

e Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 3%’; 5%"’ 
and 8” drives). 

@ Measures 4’’ x 7%"' with mounting holes 

@ One Centronics Printer Port 

® Two RS232C Serial Ports 
(75-19,200 baud with console port 
auto-baud rate select). 

® Power Supply Requirements 
+5V +/-5% @500 mA 
+12V +/- 20% @40mA 

© ZCPR3 (CP/M 2.2/3 compatible) 

Multiple disk formats supported 

e Menu-based system customization 





$B180-1 
SB180 computer board w/256K 
bytes RAM and ROM monitor 


5 Uh wartenthnech Madinhakskcd Suds tence $369.00 
SB 180-1-20 

same as above w/ZCPR3, ZRDOS 

and BIOS source............. $499.00 


-Quantity discounts available- 








new 
COMM180-M-S 
optional peripheral board adds 
1200 bps modem and SCS! 
hard disk interface. 
TO ORDER 
CALL TOLL FREE TELEX 
1-800-635-3355 643331 


For technical assistance or 
to request a data sheet, call: 


1-203-871-6170 


es Micromint, Inc. 
25 Terrace Drive 


Vernon, CT 06066 
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CG Ch es f (Listing continued, text begins on page 16) 
Listing Five 


481: * 
482: * 
483: */ 
404: 
405: register char *bp, *start = buf ; 
406; int linelen, col; 
407: 
408: if( fp == stdin ) 
429: { 
416; Vb 
4ll: * 
412: * 
413: */ 
414: 
415: linelen = 88 - (col = getcur() & Oxff); 
416: } 
417: while(l) 

{ 


to the end of the input string is returned on success or 
NULL on end of file. 


linelen is the amount of space left on the 
Current input line. Col is the column componant 
of the current cursor position. 


418: 

419: bp = (fp == stdin) ? egets( buf, min(linelen, maxline) ) 

428; : getl( buf, maxline, fp ) 

421: 

422: 

423: /* 

424: * 

425: * 

426: * 

427: = 

428; */ 

429: 

430: if( bp == -l ) 
{ 


e 
‘ 


If egets() found and ESC (bp == -1) or we've 

hit end of file (!bp) or we've seen a 

blank line (bp == buf) the last character on the 
line isn't a \, break; Note that in the first 
case we erase then entire buffer. 


431; 

432: *(bp = start) = '\@'; 
433: break; 

434: } 


435: else if£(- Ibp:, Ff 

436: break; 

437: 

438: 

439; /* 

440: * 

441; * 

442; * 
* 
*x 


Dp .<= buf. bie * (pad) t= "\\h) 


Adjust maxline to compensate for the characters 
already gotten and decrenent bp so that we'll 
overwrite the \ on the next pass. Then, if 

we're getting input from stdin, position the 
cursor in its original column but on the current 
line, 


443: 

444; 

445: */ 
446: 

447: maxline -= (-~-bp - buf); 

448; buf = bp ; 

449; 

458: if( fp == stdin ) 

451: setcur( (getcur() 6 -“@xtf) 4: col )+ 
452: } 

453: 

454: return( bp ); 

455%.°} 

456: 


459: #ifdef DEBUG 

466; 

461: main() 

462: { 

463: Static char buf[88] ; 

464; 

465: printf (* 1 2 3 4\n") 
466: Pprinkt(* 1234567890123456789012345678981234567890\n") 
467: printf (" mys 

468: 

469: while( efgets(buf, 40, stdin) > 8 ) 

478; { 

471: printf (" 
472: printf (" 2 3 4\n") 
473: printf (" 12345678981234567896123456789601234567898\n") 
474: PEActE (* wis 

475: *buf = 6; 

476: } 

AT 732 } 

478: 

479: #tendif 


ts<---\n\n", buf ); 
2 


End Listings 
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Stic Pascal 


Fastest Compiler on Earth—$64! 


Mystic Pascal compiles at 100,000 to over 1,000,000 lines per minute! How? It takes a 
short cut called incremental compilation. Compared to earlier Pascals, the effective 
speed is astronomical. Give the Compile command for a 1000 line program, and you 
probably can’t lift your finger from the keyboard before the compiler flashes—DONE! 





640K of storage not 64K. Are you fed up with being forced to shoehorn your pro- 
grams into 64K? You won't need mystical powers to run your program in the full 640K 
that we allow—code, data and stack. 


Interactive Pascal. You can enter Pascal statements directly and see the results 
instantly. It works like a Basic interpreter but it’s a true compiler! 


Optimized 8086 Code. Mystic Pascal produces true 8086 object code. The TWO 
code optimizers run in the background so they don’t slow you down. Thanks to 
another breakthrough, our software floating point arithmetic runs faster than Intel 


says is possible on the 8088/8086 chips. 


Real Multi-Tasking Pascal. Advanced programmers may write truly concurrent 
Pascal programs by simply starting Pascal procedures. Up to 100 concurrent pro- 
cedures can communicate by passing messages through queues. 


ISO Standard Pascal. Educators in particular need a truly Standard Pascal for their 
students. And learning is made easier by the Help Windows which describe Pascal. 


Mystic Canyon Software Place your order by phone today— 
PO. Box 1010 (505) 757-6344 or mail the coupon. 


Requires an IBM Personal Computer or true 


Pecos, New Mexico 87552 compatible with 256K. Not copy protected. 


Rush me the Mystic Pascal System with diskette and 75 page manual! 


Name 

Address 

City State Zip 

[_] Check/Money Order [| Visa L_] Mastercard 


Price is $64 total. CODs and Purchase Orders are NOT accepted. 
Outside US & Canada add $15. Payment must be in US funds on a US bank. 


Be ia es eth tt ee ne 2 5a le Seer 





Signature 


Circle no. 79 on reader service card. 


Windowing 
Operating 
Environments 


TopView, GEM, 
and Windows 


by Michael Swaine 


What’s really going on inside GEM, 
beneath TopView, behind Windows? 


28 


he might take offense at the way so many programmers 

are spending so much time enhancing, augmenting, by- 
passing, subverting, taming, masking, and hiding MS DOS. 
And now Microsoft is getting into the act with Windows. 
This article examines Windows and two other “windowing, 
multitasking programming environments” for MS or PC 
DOS machines: IBM’s TopView and DRI’s GEM. 

You could argue that the seeds were planted by no less 
a gardener than the Jolly Blue Giant when IBM released 
its PC with no operating system but with three operating 
system options: PC (a.k.a. MS) DOS; CP/M-86; and Sof- 
Tech’s UCSD p-System. Although IBM’s subsequent pric- 
ing strategy strongly hinted that PC DOS was the PC’s 
DOS, the other operating systems never entirely took the 
hint and went away. Nor did they even get humble: Con- 
sider NCI’s recent ads for its p-System that announce a 
new release for the whole PC family (except for jr, whom 
the family never mentions). The ads, directed at program- 
mers, suggest that with the p-System you can have com- 
patibility with the operating system that your customers, 
in their ignorance, want (DOS), but can still work in a 
good programming environment (not DOS). 

Although there were precursors, DRI should probably 
get the credit for bringing concurrent processing to per- 
sonal computers with its concurrent version of CP/M. It 
soon became clear to DRI that to sell concurrency on IBM 
PCs it had to develop a concurrent PC DOS, acknowledg- 
ing Microsoft’s control of the PC operating system area. 
But DRI had raised the issue of concurrency on a single- 
user computer. 

After DRI opened the concurrency window, there came 
the pop-ups, an undisciplined horde of dwarf programs 
that demonstrated even to ordinary mortals the benefits 
of some approximation of concurrency. They presented 
object lessons in the hazards of operating system anarchy 
as well. It was cute when Eastman Kodak put a package 
under the tree labeled ““Open me first”; it was less appeal- 
ing to confront a dozen software packages all clamoring 
‘Load me first.” 

What allowed pop-ups to show off their concurrency 
was windows, an architectural feature opened by Xerox 
and polished by Apple. The success of the concept of win- 
dows is exemplified by its employment in dWindow, a 
non-operating system application. For years, Ashton- 
Tate’s dBASE II set the standard for austerity in user in- 
terfaces—you can’t get much simpler than a single period 
prompt. Liberty-Bell Software’s dWindow does a daz- 
zling cathedral window treatment on dBASE II and III 
that makes them look like entirely different products. But 
it is at the operating system level that the fenestration of 
the interface has become obligatory, and it was Apple’s 
Macintosh that made it so. 

Bill Gates and his Microsoft programmers were among 
the first developers to peek behind the blinds at Apple, and 
they were not slow to announce Microsoft’s own window- 
oriented product, which they called Windows. Sometime 
between the announcement of Windows and its release, the 
Korean War ended, Alaska and Hawaii attained state- 


t’s a good thing Bill Gates isn’t thin-skinned. Otherwise 
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hood, and Digital Research programmers conceived and 
brought out a windowing product called GEM, whose visu- 
al display, Apple recently noticed, looks rather like the 
Mac’s. Meanwhile, IBM caught the drift, fumbled through 
its pockets, and pulled out a windowing, multitasking oper- 
ating environment that it christened TopView. 

With at least three windowing, multitasking operating 
environments to load on top of, stack next to, or wrap 
around DOS, the archetypal “fully loaded PC” was begin- 
ning to look like a pop-up on steroids. In fact, or at least in 
PC Week, Peter Norton described a dream he had in 
which he tried to run TopView, GEM, and Windows si- 
multaneously. His hard disk flew to Poland. 


Smart Money Talks a Lot 

A programmer must face more serious questions of com- 
patibility. How does each product work with DOS? How 
will existing and future programs run in each of these envi- 
ronments? How well will they run? What are the costs of 
laying another sheet of software between programmer and 
machine? We asked such questions of development-team 
members for each of the three products. But as the answers 
came back, industry analyses were circulating that ques- 
tioned the viability of at least two of the products (the two 
that had actually been released). Were we wasting our 
time asking questions about these products? 

Although some developers are producing TopView- 
compatible applications, the product has clearly not cap- 
tured the imagination of users or developers. The recent 
agreement between IBM and Microsoft has fueled much 
speculation about the viability of TopView, and many ob- 
servers seem to be betting on Microsoft. One popular ar- 
gument is that IBM will create two systems: one using 
Windows and Microsoft’s DOS, the other using a DOS- 
free descendant or unrelated successor to TopView—in 
any case, a proprietary operating system. Some, including 
IBM watcher Andy Seybold, speculate that the IBM- 
Microsoft agreement may have little to do with IBM’s 
long-term goals and that IBM will use TopView as the 
centerpiece of its future operating systems. At least one 
analyst insists that IBM’s history demonstrates that it will 
eventually have a proprietary operating system on the PC. 
But IBM has broken tradition several times in the short 
history of the PC, and the venerable wisdom about what 
IBM always does may not be as wise now as once it was. It 
does seem that it is getting harder to second-guess IBM, 
and that the benefits from succeeding therein may be 
even more dubious today than in mainframe days. 

The smart money is writing off GEM in the IBM-com- 
patible market, reasoning that if IBM owns the hardware 
and Microsoft owns DOS, where does that leave a compa- 
ny that tries to compete with them on their turf? 

Perhaps DRI’s success with GEM will have to come in 
the other end of the dumbbell. Lee Felsenstein, in prosely- 
tizing for his Hacker’s Mac project, describes the person- 
al computer market as an asymmetric dumbbell with one 
globe of IBM-compatibles and a smaller globe of Maca- 
likes. He argues that the smaller globe can grow and pros- 
per only with compatibility and proposes a radical strate- 
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gy for forcing compatibility on unwilling Apple, Commo- 
dore, and Atari. Such a development would likely benefit 
DRI and GEM, but is it likely? 

Perhaps not, given the fact that Apple has pressured 
DRI into changing GEM to decrease its similarity to the 
Macintosh’s visual interface. GEM as originally released 
had to be terminated by November 15, that is, DRI had to 
stop supporting and advertising it. The new version will 
look less Macintoshish. Apple is also talking with Micro- 
soft about Windows, but in softer tones. 

Smart money and dream-machine designers aside, 
GEM provides MS DOS users and programmers with ca- 
pabilities that Windows and TopView lack. But TopView 
and Windows have their own distinct, desirable features. 

Three facts argue against accepting the judgment of 
the smart money too hastily. First, the three operating 
environments offer three different sets of capabilities to 
users and software developers. Second, no one needs any 
of these products; they are all frosting on the DOS, and 
users may decide among them—or against all of them— 
on grounds that smart money would consider dumb. 
Third, as Bob Frankston pointed out in InfoWorld, writ- 
ing for TopView (or Windows or GEM) limits your mar- 
ket. In any case, we assume there is merit in understand- 
ing these products from a programmer’s point of view. 


Inside GEM 

At one level, getting started developing an application 
that is compatible with GEM is simple. You get the Pro- 
grammer’s Toolkit and start writing. In terms of hard- 
ware, you need a PC with half a megabyte of memory and 
a color-graphics adapter. You should also have a hard 
disk and a mouse, although you can do development work 
without them. 

Beyond these elementary requirements, one comes up 
against the fact that GEM is a message-passing program. 
Years of single-thread procedural programming experi- 
ence will not prepare you adequately for the different pro- 
gramming model that GEM employs. According to one 
GEM programmer, the learning curve within DRI during 
GEM development was two months. Programmers who 
had never worked with any windowing system took two 
months to get up to speed in the GEM programming envi- 
ronment. Programmers who had had some windowing ex- 
perience learned faster but had to unlearn some details 
that did not transfer. 

GEM itself does not communicate directly with DOS; 
that is, the Virtual Device Interface and Window Services 
don’t. The GEM Desktop does. File manipulation is han- 
dled through DOS calls. GEM supports a variety of de- 
vices and is expected to support the AST/Ashton-Tate/ 
DRI/Quadram expanded-memory specification, which 
will become particularly significant when the multitask- 
ing version of GEM is released. 

GEM compares more directly with Windows than with 
TopView; TopView is character-oriented and truly multi- 
tasking and GEM and Windows are neither. In comparing 
GEM and Windows as programming environments, Win- 
dows developers point to powerful features, and GEM de- 
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velopers talk about a clean programmer’s interface. But 
the clearest advantages GEM has over Windows at the mo- 
ment seem to be that GEM has been out long enough to 
land significant committed and producing OEMs, includ- 
ing Atari and Apricot, and the leverage that this gives the 
developer in porting an application to different 
environments. 

What does the Apple-DRI settlement mean to program- 
mers who have developed GEM-compatible software or 
who are thinking about doing so? Perhaps not much. The 
changes in GEM forced by Apple appear to be essentially 
cosmetic, and though the impact on the GEM Desktop will 
be significant, the programming impact may be minimal. 


Beneath TopView 

The chief difference between TopView on the one hand 
and GEM and Windows on the other is that TopView is 
truly multitasking. You can see multitasking in action if 
you bring up a visually active BASICA program in two 
TopView windows simultaneously. You’ll see the pro- 
gram doing its thing in parallel with itself. 

Because it is a multitasking operating environment, 
TopView permits the development of multitasking appli- 
cations. The application developer can produce a task 
with its own subtasks. Then, in addition to running the 
application in multitasking mode with other tasks, Top- 
View will multitask the application’s subtasks. Tasks can 
communicate; if you get the object handle for a task you 
can send it a message. 

Memory management under TopView is as simple as it 
is under DOS. When a program begins, it is assigned 
memory according to the demands of its fixed Program 
Information File. Henceforth it can get no more nor less. 
On a program’s termination, its memory is freed. 

TopView does not replace DOS. It sits atop DOS, hand- 
ing off file I/O and other system functions to the system. 
It is at the character I/O level that TopView butts in, 
redirecting all character I/O. Among other things, this 
means that you can freely mix TopView and DOS calls. 
You can put the user in DOS under TopView and have the 
fact that TopView is active be unknown to them. (A Get- 
version call will show the user that TopView is active. ) 

Although TopView is character-oriented rather than 
graphics-oriented, it will work with a standard mono- 
chrome or color screen and anything up to the EGA. Top- 
View will work with the EGA but won’t take advantage of 
its extended graphics capabilities. 

TopView developers are trying to woo other developers, 
arguing that you can bring a more powerful application to 
market more quickly if you write for the TopView envi- 
ronment—you can take advantage of a standardized dis- 
play style, a toolkit of window design aids, and other de- 
velopment tools. You can also use what Top View 
designers call full-screen input. This wooing of developers 
has not been entirely unsuccessful; the Trio micro-to- 
mainframe product and the Lattice Topview Toolbasket 
are significant TopView-compatible products. 

For existing programs, you can make use of as much of 
the windowing capability as makes sense. For some appli- 
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cations this may be useless, but the capability is there. 
The implementation of DOS services shows what IBM 
projects for future applications—making logical use of 
several windows rather than just throwing a frame around 
a full-screen display. 


Behind Windows 

Because Microsoft has good sources on what future ver- 
sions of DOS will require, its programmers can do what 
they admonish independent developers not to do—work 
around DOS. Windows runs “‘side by side with DOS.” 
When Windows comes up, its DOS executive replaces 
command.com, which is no longer needed. 

Windows is made up of three pieces: two are the exter- 
nal pieces that everyone sees, the user interface and the 
graphics device interface (GDI). The third is the kernel, 
which interfaces to whatever kind of MS DOS is on the 
machine. This interface changes considerably with differ- 
ent versions of DOS and hides the operating environment 
from Windows. 

The user interface differs from the Mac/GEM/Top- 
View approach in tiling the screen with windows that 
don’t overlap other windows. 

At the GDI level is an interrogating interface: if a de- 
vice says that it can only do bitblt, the interface will simu- 
late everything else in the software using bitblt; if the 
device says it can do complex polygons with hash filling, 
GDI hands off to the device. The device manufacturer fills 
in capabilities up to some level and Windows simulates 
the rest. The goal at the GDI level was device indepen- 
dence—the ability to change one line of code and have 
output go to a different device. 

At the level of the kernel, Windows has true compact- 
ing global memory management; it does not have true 
preemptive multitasking. It can allocate, reallocate, dy- 
namically free and restore data. Its task handling is round 
robin nonpreemptive multitasking—the application must 
yield control. There are mechanisms for implicit yielding 
when the application is waiting for something. 

The reason Microsoft gives for not implementing true 
preemptive multitasking is suggestive: DOS is not reen- 
trant. If you preempt a task and it’s in DOS at the time, 
you'd best get back to DOS quickly. So a good chunk of 
the time slicing would not be beneficial. That, Windows 
developers claim, is why TopView is slow. Rick Dill of the 
Windows design team says, “We think multitasking real- 
ly belongs at the operating system level, and it will get 
there eventually.” He means in MS DOS. 

Windows started from the Smalltalk push model and 
changed to a more procedural approach only when Micro- 
soft found that programmers didn’t work well with its 
implementation of the push model. The general structure 
of a Windows application is: initialization; Windows-re- 
quired initializations (because Windows does not require 
that an application be installed it does require that the 
application register itself with Windows when it starts); 
creating a window; and the main program while loop— 
Getmessage, Translatemessage, Dispatchmessage. 

One of the hidden features is the ability for applications 


Dr. Dobb’s Journal, December 1985 


ombine The Power Of & 


And 
Your IBM Mainframe 





What are the advantages of running C on your 370? 


C is a high level language offering speed, power and flexibility. 
When you combine this with the IBM 370, you've got an 
unbeatable environment for software development. In addition, C 
lends itself to many different types of applications, is highly 
portable to a number of diverse CPU architectures and is the basis 
for a wide variety of existing software. Clearly, the future of 
programming lies with C. 





Why Choose Whitesmiths’ C? 


Experience. Whitesmiths has been developing C compilers for 
over seven years. We were one of the first to introduce C for the 370 
and our experience is evident in the features we offer: 


e Fullimplementation of the C programming language for the IBM 
370 


e Ability to run under VM/CMS and MVS, and to run 
interactively under TSO 


e Ability to produce re-entrant code (discontiguous shared 
segments) 
e Direct support for both EBCDIC and ASCII character sets 


e Optional cross support forMS/PC-DOS, CP/M-86, CP/M-68K, 
VERSAdos-68K and CP/M-80 


Unlimited use of libraries in binary form 
Support for ROM-based programs 

UNIX-style compatible library 

Optional use of IBM or Whitesmiths assembler 


Support of full ISO Level 0 Pascal, extended to support separate 
compilation 


e System and Machine Interface Libraries provided in source code 
form 





Call Whitesmiths’ toll-free number for more information 
1-800-225-1030 


INTERNATIONAL DISTRIBUTORS: UNITED KINGDOM - Real Time Systems, Ltd., Douglas, Isle of Man, 011-44-0624-26021; 
AUSTRALIA - Neology Pty. Ltd., Rosebury, Sydney 662-4111; JAPAN - Advanced Data 
Controls Corp, Toshima-Ku, Tokyo, 03-576-5351; SWEDEN - Unisoft AB, Goteborg, 
011-46-31-125810; FRANCE - Cosmic SARL, Paris, 011-33-378-8357 





Whitesmiths, Ltd. ¢ 97 Lowell Road ¢ Concord, MA 01742 * 617-369-8499 * Telex 750246 
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New C Tools 


*SPECIAL OFFER $349 


UniTools, ‘‘Z,’’ PC-LINT and 
Sunscreen. 





UniTools si49 $99 

MAKE, DIFF and GREP 
These versatile UNIX utilities 
put power at your fingertips. 
MAKE, a program administrative 
tool, is like having an assistant 
programmer at your side. DIFF 
compares files and shows you 
the differences between them. 
GREP can search one or many 
files looking for one pattern or 
a host of patterns. 

a s149 $99 
A Powerful ‘‘vi’’-type Editor 
Based on the Berkeley “vi editor, 

“Z's” commands are flexible, 
terse, and powerful; macro func 
tions give you unlimited range. 
Features include “undo,” sophisti? 
cated search and replace func- 
tions, automatic indentation, 
C-tags, and much, much more. 
SunScreen si4a $99 
Low-priced screen utility 
Create and modify formatted 
screens easily. Validate fields, 
support function keys, color and 
monochrome cards. With library 
source SunScreen is $199. 
PC-LINT si4ea $99 
Error checking utility 
A LINT-like utility that analyzes 
programs and uncovers bugs, 
quirks and inconsistencies. De- 
tects subtle errors. Supports 
large and small memory models, 
has clear error messages and 
executives quickly. Has lots of 
options and features that you 
wouldn't expect at this low price. 


The support products listed here 
run with most leading MS/DOS 
and PC/DOS C compiler sys- 


tems, including Manx Aztec, 
Lattice, Microsoft, Mark Williams 
and Computer Innovations C. 
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Learn C Today! 


$99 


*INTRODUCTORY OFFER! $99 
C’ Prime, Personal Computing 
and C, Plus APPRENTICE C 


PRIME 









Never has C been easier to 
learn. Manx Aztec is now offer- 
ing a complete C system called 
C’ Prime at an exceptionally 
low price. This powerful system 
includes a Compiler, Linker, As- 
sembler, Editor, Libraries and 
Object Librarian. C’ Prime has 
full UNIX compatability, and 
supports a host of third-party 
software. 


NEW FROM ASHTON-TATE! 


A Practical Step-by-Step Intro- 
duction to C Programming 
written Especially for use with 
Manx Aztec’s new C’ Prime: 


Personal Computing and C, is 
a detailed, easy-to-understand 
guide to C prepared especially 
by Ashton-Tate for use with the 
new Aztec C’ Prime. Written 
by John Gainsborough of NASA’s 
Jet Propulsion Laboratory, it 
includes chapters on C pro- 
gramming basics, function li- 
braries, data handling, and many 
other functions. The book also 
includes a complete demonstra- 
tion program of an accounting 
database update application, as 
well as dozens of examples on 
how you can program effec- 
tively with C. 


APPRENTICE C 
Learn C with this easy to use, 
and complete C language inter- 
preter. APPRENTICE C includes 
a complete one-step compiler 
that executes with lightning 
speed, an editor, and a run-time 
system. $49.95 















To order or for information call: 


!- 800-TEC- WARE 


(In NJ call 201-530-6307) 
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Tools for C 


C Utility Library siss $135 
Over 300 C subroutines 
C and assembler source code 
for screen handling, color print- 
ing, graphics, DOS disk and file 
functions, memory management 
and peripherals control Graphics 
and speed are impressive. 
C-tree $305 $309 
B-Tree database system 
Store, update and retrieve re- 
cords easily. Both high-level 
multtkey ISAM routines and low- 
level B-Tree functions. Available 
for MS-DOS, CP/M-86, CP/M- 
80 and others. Easily transpor- 
ted. Adaptable for network and 
multiuser. Includes source. 
PHACT $250 $200 
Data Base Record Manager 
Includes high-level features 
usually found in larger database 
systems. Tunable for speed or 
size optimization. Available for 
MS-DOS, CP/M-86 and CP/M-80. 
Pre-C s305 $315 
LINT-like source code analyzer 
Locates structural and usage 
errors. Cross-checks multiple 
files for bad parameter declar- 
ations and other interface errors. 
Windows for C sies $159 
Versatile window utility 
Supports IBM PC and some 
non-compatible environments. 
PANEL $295 $235 
Screen generating utility 
Create screens via simple, power- 
ful editing commands. Select 
colors, sizes and types, edit 
fields. Directly input data toa 
multikeyed file utility, and tailor 
screens for each application. 
HALO $2560 $199 
Uitimate C graphics 
A comprehensive package of 
graphics subroutines for C. Sup- 
ports multiple graphics cards. 
PLINK-86 s305 $319 
Overlay linker 
Includes linkage editor, overlay 
management, a library manager 
and memory mapping. Works 
with Microsoft and Intel object. 








written by different vendors to be integrated via cut and 
paste as well as the via the messaging mechanism. For 
example, Multiplan could register a message that says 
‘cell changed.” A presentation-graphics program could 
know that that message means it can look in the clipboard 
for the contents of the cell and automatically update the 
chart being displayed. 

Windows is 85 percent written in C; the low-level part 
is written in assembly. Windows supports Pascal, FOR- 
TRAN, C, or Microsoft’s macro assembler. Because of the 
new .exe format, programmers will have to use Micro- 
soft’s new linker. 

According to Dill, Microsoft hopes to entice software 
developers with the knowledge that, in conforming with 
Windows, they’re building a future DOS-conforming ap- 
plication. Windows is a sneak peek into DOS. (On the 
other hand, Dill admits there are software developers who 
have disassembled the .exe file and know more about the 
innards of DOS than he does.) 

But does all this just get in the software developer’s way? 
Most serious software developers find that they must work 
around DOS to produce a competitive product. Won't soft- 
ware developers find Windows just as encumbering? 

“Our bitblt,’’ Dill responds, “‘is faster than yours.”’ He’s 
serious: Microsoft’s bitblt is a general-purpose source- 
pattern-destination function supporting four operators. 
The result is that there are 256 different operations avail- 


able: others implement some subset, often 16, of those. 
The Windows graphics routines can move a graphics 
block around the screen almost as fast as the data can be 
moved through memory. Whether that answers the ques- 
tion is moot. 

One significant change Microsoft is introducing is a new 
.exe file format. Future versions of DOS (of which Win- 
dows is a hint) will need more information in the .exe file. 
To maintain some compatibility, Microsoft has grafted the 
old .exe header, code, and data on top of the new .exe 
header. The old tells where the new begins, and the new 
has its own code and data. It also has something totally 
new called resources. Resources (like menus and dialogue 
boxes) can be changed without messing with the .exe file. 
Thus, one can have one binary that works worldwide, with 
the resources supplying the language-specific information. 

What, then, of the .com files? In the next version of 
DOS, .com files go away. DOS 3 1s the last Microsoft oper- 
ating system in which memory-image programs will be 
supported under the operating system itself. ““We just need 
the information,” Dill explains, “to be able to do things like 
running that application up in high memory and being able 
to segment it correctly and deal with running an old style 
8088 unprotected application under a 286.” DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 


Relocatable Z80 Macro Assembler 


Only $49.95 plus shipping. @ 
8080 to Z80 Source Code Converter. 


Generates Microsoft compatible 
REL files or INTEL compatible hex 


files. 


Compatible with Digital Research 
macro assemblers MAC & RMAC. ° 


Generates Digital Research compat- 


ible SYM files. 


Conditional assembly. 


Phase/dephase. 

@ Cross-reference generation. 

@ Full Zilog mnemonics. 

@ INCLUDE and MACLIB FILES. 
& 


Separate data, program, common, 
and absolute program spaces. 
Supports Hitachi HD64180. 

Z80 Linker and Library Manager for 
Microsoft compatible REL files avail- 
able as an add-on to Assembler. 


ATTENTION Turbo Pascal Users: 


Assembler will generate Turbo Pascal in-line machine code include files. 
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BANKSWAP 


A Banked Memory Debugging Tool for CP/M Plus 





by Albert S. Woodhull 
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ful to 8-bit processors, CP/M 

Plus can help to keep 8080-, 
8085-, and Z80-based microcomput- 
ers in competition with newer 16-bit 
systems. Although the 8-bit proces- 
sors can directly address only 64K of 
memory, under CP/M Plus a mega- 
byte can be efficiently used. 

For the programmer there is a 
catch. Transient programs must re- 
side in a single 64K bank. They have 
indirect access to alternate banks 
through the operating system. A user 
running purchased software will not 
be bothered by this. Developers and 
others who need to write or modify 
code that uses the alternate banks 
have a serious problem, however. CP/ 
M Plus comes with development tools, 
such as the RMAC assembler and 


PB y making extended memory use- 


ability for a user program even 
though the program resides entirely 
in the main bank. The speed increase 
comes from using the extra memory 
to buffer disk data and disk directo- 
ries. The space increase comes from 
putting part of the operating system 
in an alternate memory bank, making 
almost all of the 64K of memory the 
processor can address available to the 
user’s program. For instance, on an 
Apple with the Advanced Logic Sys- 
tems CP/M Card the transient pro- 
gram area (TPA) is 60K, even though 
the CP/M Plus system itself (exclu- 
sive of the CCP) takes up 17K. 

User programs cannot directly ac- 
cess data or executable code in alter- - 
nate banks. The point can be argued, 
but I believe Digital Research made a 
wise choice in imposing these restric- 





Apple’s Filer is fine until you want to copy files 
between volumes without losing a BASIC program 
in memory. 





LINK, that enable one to write code 
for use in any bank of memory, but 
the standard CP/M Plus debugging 
tool, SID, is an ordinary transient pro- 
gram, incapable of examining or 
changing the alternate banks. The 
programmer needs new tools or a way 
to extend the power of the old ones. 

My response to this need was 
BANKSWAP, an extension for SID or 
DDT that provides access to the alter- 
nate banks. I will describe this tool af- 
ter a brief discussion of how CP/M 
Plus uses banked memory. 


Banked Memory in CP/M Plus 
Additional banks of memory can im- 
prove the speed and memory avail- 





Albert S. Woodhull, Hampshire 
College, Amherst, MA 01002 


tions. Most programs that use a lot of 
memory use it to hold data, and disk 
buffering can provide an improve- 
ment in data access comparable to 
that of extended memory. Given the 
inherent limitations of 8-bit proces- 
sors, it is not clear that allowing user 
programs to execute code resident in 
extended memory would be much 
more efficient than using code over- 
lays swapped in from disk buffers. 
Under CP/M Plus, programs must 
be written as if the extra memory is 
not there at all. As long as the mini- 
mum amount of memory needed for 
an application is present in the TPA 
bank, a program will be able to run on 
any CP/M system. This continues the 
CP/M tradition of providing portabil- 
ity for programs by using the operat- 
ing system to make details of hard- 
ware irrelevant to user programs. 
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The BANKSWAP Program 
BANKSWAP is not a stand-alone pro- 
gram; it is an enhancement to SID or 
DDT that provides additional com- 
mands to copy blocks of memory from 
bank to bank. The normal functions of 
the debugger can be used on a copy of 
memory from another bank that has 
been brought to the TPA bank. 
BANKSWAP is relocatable and is 
not necessarily loaded to the same lo- 
cation each time it is used. For ease of 
use, BANKSWAP installs a vector to 
its own entry point at the RST 5 loca- 
tion (28H) during installation. Typ- 
ing G28 from the SID or DDT prompt 
brings up the BANKSWAP menu. 


The initialization process also dis- |] 


plays a message to remind the user of 
the presence of BANKSWAP and the 
command to access it. 

The BANKSWAP menu allows the 
user to choose the direction of the 
move, the memory addresses for the 
source and destination, and the length 
of the block to be moved. The menu 
also provides for easy return to DDT 
or SID and for the eventual removal of 
BANKSWAP. Copying is done in two 
steps through a buffer that is also in 
common memory. I chose to use a rel- 
atively small buffer and repeat the 
process several times in order to make 
the best use of memory space. 

Listing One (page 38) for BANKS- 
WAP.ASM contains comments that 
explain the operation of BANK- 
SWAP, but I will emphasize a few 
points I found important in working 
with banked memory. Although I 
wrote this program for use on an Ap- 
ple with the Advanced Logic Systems 
CP/M Card, there should be no prob- 
lems in making BANKSWAP work on 
other implementations of CP/M Plus. 
The most critical point is to be sure 
that control is not lost while bank | is 
deselected. This means ensuring that 
BANKSWAP itself, the stack, and all 
data areas used are located in com- 
mon memory. It is possible for a CP/ 
M Plus system to be constructed so 
that interrupts and system calls can 
be handled while alternate banks are 
selected. With insurance in mind, I 
thought it best to disable interrupts 
and avoid calls to the standard BDOS 
entry point while bank | is deselected 
because the vectors on page 0 of bank 
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1 are then inaccessible. 

I used a direct call to a BIOS rou- 
tine to select the bank of memory. 
There are several points to mention in 
regard to that. First, the CP/M Plus 
documentation is emphatic in stating 
that direct BIOS calls must not be 
made by application programs; the 
reason for this is that under CP/M 
Plus some BIOS routines are always 
called from the bank 0 portion of the 
BDOS and will not return to a pro- 
gram located in bank |. In fact, a sep- 
arate BDOS function is provided for 
gaining direct access to the BIOS. The 


catch is that this BDOS function pro- 
hibits access to one BIOS routine— 
you guessed it—the one we need for 
BANKSWAP. Digital Research really 
doesn’t want user programs to try to 
access other memory banks. 

Having decided to take the law 
into your own hands and call the 
BIOS bank-select routine directly, 
you can’t do it by accessing the BIOS 
vector in low memory just any old 
time for the same reason you can’t 
use BDOS routines any old time— 
some of the time the low memory the 
program sees will be in bank 0. For 


If you use an IBM PC, 
you're stuck with DOS. 


But that doesn't mean you have to develop under DOS. Everybody 
knows that IBM and DOS go together like the old-fashioned horse 
and carriage. Like it or not, DOS dominates the PC market and until 
now, developers have just had to grin and bear it. 


But now ek have a choice. NCJ’s UCSD p-System is a | 
powerful solution for the developer who requires an outstanding 
development environment but wants to retain compatibility with 
DOS. The UCSD p-System supports the full range of ANSI 
Standard Pascal instructions, plus several valuable extensions. It 
supports large libraries of separately compiled modules and code 
overlays, so that you can develop larger programs than ever before, 
as well as a wealth of development tools including a full-screen 
editor, a file manager, a library manager, full interrupt serial support, 
TurtleGraphics, automatic startup file, and many other software 
utilities. At the same time, you can send out your application on a 
DOS diskette, boot from DOS, use DOS hard disk partitions and 
automatically read from and write to DOS files. 


So if you want a development environment that gives you speed, 
flexibility, efficiency, provides truly incredible programming 
capability, yet still gives your end-user the familiarity of DOS, 
choose r’ D_p- oe f 


Order your p-System solution today: call (604) 430-3466. 


Network Consulting Inc. 
#115-3700 Gilmore Way, Burnaby, BC, Canada V5G 4M1 
US Mailing Address: P.O. Box 8040, Blaine, WA 98230 
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this reason, I made the initialization 
portion of BANKSWAP fetch the 
BIOS vector so the necessary entry 
point could be calculated and stored 
locally. I did this only for the BIOS 
SELMEM routine; the program can 
be simplified if a BIOS XMOVE rou- 
tine has also been implemented (this 
is not provided in the Advanced Log- 
ic Systems release of CP/M Plus). 


Resident System Extensions 

BANKSWAP must run in common 
memory. This is most easily accom- 
plished by creating a relocatable file 


Cc 


to be loaded to the top of the TPA. 
CP/M Plus has another feature, the 
Resident System Extension (RSX), to 
simplify this task. 

An RSX is a page-relocatable pro- 
gram segment that CP/M Plus loads 
to the highest available address, just 
as DDT or SID are handled under old- 
er versions of CP/M. Each RSX mod- 
ule has a prefix, as shown in Listing 
One. The prefix includes a jump to 
the BDOS entry point in high memory 
(for the first RSX installed) or to the 
last previously installed RSX. When- 
ever an RSX is installed, the JMP in- 


@ We have over 300 
omplete, tested, and, documented functions. 


All source code and demo programs are included. 


® The library was specifically designed for software 
development on the IBM PC. XT. AT and compatibles. There are no royalties. 


© Over 95°o of the source code is written in C. Experienced programmers 
can easily “customize” functions. Novices can learn from the thorough comments. 


We already hare the functions you are about to wtite 


Concentrate on software development—not writing functions. 


THE C UTILITY LIBRARY includes: 


e@ Best Screen Handling Available © Windows @ Full Set of Color Graphics 
Functions @ Better String Handling Than Basic @ DOS Directory and File Man- 
agement @ Execute Programs, DOS Commands and Batch Files ¢ Complete 
Keyboard Control @ Extensive Time Date Processing @ Polled ASYNC 
Communications @ General DOS BIOS gate e Data Entry e And More e 


® The Library is compatible with: Lattice. Microsoft. Computer Innovations. Mark Williams 
and DeSmet. Available Soon: Digital Research, Aztec and Wizard. 


C Compilers: Lattice C— $349. Computer Innovations C86 — $329: Mark Williams C — $449. 


C UTILITY LIBRARY $185. Special prices on library & compiler packages 


Order direct or through your dealer. Specify compiler when ordering. Add $4.00 shipping for 
UPS ground, $7.00 for UPS 2-day service. NJ residents add 6% sales tax. Master Card. Visa. 


check or P.O. 


ESSENTIAL SOFTWARE, INC 


P.O. Box 1003 





Maplewood, New Jersey 07040 914 762-6605 
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struction at location 5 is modified to 
point to it, so a chain of JMPs is tra- 
versed whenever a BDOS call is made. 
The address portion of the JMP at lo- 
cation 5 is also used by programs to 
detect the decreased size of the TPA, 
protecting the RSX from being 
overwritten. 

Because all BDOS calls pass 
through the RSX JMP chain, RSXs 
can be written to intercept BDOS calls - 
to customize BDOS performance. 
BDOS interception is not necessary, 
however. BANKSWAP intercepts only 
the very first BDOS call after it is 
loaded—this is a convenient way to 
force execution of the BANKSWAP 
initialization phase. The initialization 
code saves and restores whatever in- 
formation is being passed to the BDOS 
and modifies the JMP chain to prevent 
reinitialization. 

An RSX must be connected to a 
normal .COM program to be in- 
stalled. CP/M Plus provides a utility, 
called GENCOM, to do this and also 
provides the RMAC and LINK pro- 
grams needed to produce the reloca- 
table program and its relocation bit 
map. The process is considerably 
more complicated than assembling 
and loading a program under CP/M 
2, but it is easy to use the CP/M SUB- 
MIT program to direct the process. 
An RSX can be attached to any .COM 
file. I have attached BANKSWAP to 
DDT.COM and SID.COM and it 
works with both. Listing Two (page 
52) shows the RSXMAKER.SUB file 
that can create BANKSWAP.RSX 
and connect it to SID.COM. 

When BANKSWAP is to be at- 
tached to SID or DDT it is assembled 
with a REMOVE flag set in the RSX 
prefix. This ensures that when a 
warm boot occurs upon exiting from 
SID the space occupied by the RSX 
will be freed. BANKSWAP can also 
be assembled to be loaded indepen- 
dently of SID by setting the ALONE 
equate true. In this case it is still nec- 
essary to attach the RSX code to a 
.COM file, which could be nothing 
more than a jump to location zero. As 
the Listing One shows, setting 
ALONE true resets the REMOVE flag 
in the RSX header, and it also adds an 
option to the BANKSWAP menu to 
allow later removal. 
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There is a potential problem with 
the version of BANKSWAP shown in 
Listing One, but I’m leaving it for 
someone else to fix. As noted above, 
BANKSWAP uses the RSX technique 
in order to be located at the highest 
available memory address. The actual 
amount of high memory that is com- 
mon depends upon the hardware used, 
and I didn’t figure out a way for a pro- 
gram to determine this. If too many 
RSXs are installed, the top of avail- 
able memory can be below the com- 
mon region. In this case BANKS WAP 
will probably cause a crash. On my 
Rev. A CP/M card the common-mem- 
ory limit is at 8000H, which leaves 
room for a lot of RSXs, so I have never 
given the problem a high priority. 


Using BANKSWAP 

Once BANKSWAP has been attached 
to a copy of SID.COM it will be in- 
stalled whenever SID is run. Listing 
Three (page 52) shows part of a typi- 
cal session with enhanced SID. The 
initialization process tells the opera- 
tor that BANKSWAP is available. A 
G28 command enters BANKSWAP, 
which displays a menu. I usually 
bring part of an alternate bank over 
to bank | first, then return to the de- 
bugger to examine, disassemble, or 
alter the copy. In fact, if executable 
code from some portion of bank 0 is 
brought over to the corresponding ad- 
dress range in bank | the debugger 
can be used to trace through it—pro- 
viding that the code doesn’t switch 
banks or access I/O or storage ad- 
dresses in an alternate bank. 

In the Apple environment there is 
one limitation: an Apple’s I/O is all 
memory mapped in bank 0. If an at- 
tempt is made to access bank 0 in the 
range 6000H to 67FFH it may crash 
the system because some addresses in 
this range activate switches on the 
Apple main board or peripheral cards, 
including the CP/M Card itself. 


Conclusion 

One of my first reactions to CP/M 
Plus was a helpless feeling. I had 
written my own BIOS for CP/M 2.2 
on my S-100 system, and I was accus- 
tomed to being able to explore how 
the system worked on any CP/M ma- 
chine. With CP/M Plus, portions of 
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the operating system were totally in- 
accessible to the tools I had on hand. 
Most users don’t need the kind of 
access I wanted. However, the initial 
version of CP/M Plus I received did 
not support my printer interface 
properly. I also had proposed to de- 
velop CP/M Plus driver software for 
companies that manufactured large- 
format disks and RAM-disk add-ons 
for Apples. The usability of my sys- 
tem as well as potential income de- 
pended upon my ability to patch vari- 
ous devices into CP/M Plus. 
BANKSWAP solved my problems. 
It gave me a way to satisfy my curios- 







or two debugging sessions. 


comments, read variables. 








5. Pop-up Help windows 


—_ 


AT86- Advanced Trace86 


DEBUG FAST! 


As a professional, your time is valuable. Advanced Trace86™ is 
designed as a debugging environment to increase productivity. 
In many situations, Advanced Trace 86™ can pay for itself in one 


Advanced Trace86_" 
FEATURES 


e Trace Screen with user-configurable windows for disassembled 
code, registers, flags, the stack, the 8087 registers, and memory. 


e Single-step tracing with virtually unlimited back tracing. 


e |n-line assembly capabilities, edit .EXE and .COM files in memory 
(including non-destructive line insertion for .COM files). 


e Symbolic debugging capabilities - read or create line labels and 


Debugger Comparison Chart - Selected Features 
Features 


1. Load Program as memory resident (like Sidekick) oGhs 
2. IBM Professional DEBUG & Periscope boards supported FERPA S 
3. Keyboard break-out support- Ctrl-Enter key combo Pee Kae. «| 
| 4.Conditional breakpoints, CX XY 
| 5.HexiDecimalcalculator&converter TX | XI 
| 6.Convertnumberstobinary CX 
Py; Apgil chere (ap up) fer ck ee 
| 8.In-line Assembler with code insertion capability | X | X || 
| 9. 80286/80287 support inAssembleriDisassember | X | | 
10. Protect Virtual Mode Supportforeoz86_ TX | 
11. 8087/80287 window - registers in both decimal & hex Ney. Mae aed 
2. Display memory in ASCII, byte, word, & double word PL is per 
13. Define ‘memory structures” for display/editing A Ae 
4. Try out DOS interrupts command Seabee antl 


16. Command macros defined & saved to disk 

7. DOS TYPE, DIR, & ERASE commands 

18. Search memory for Assembler code - multiple instructions 
19. Execute/trace program in reverse & restore machine state 


Code.-Codesmith 


Requires: IBM PC or compatible, minimum 128K RAM. Retail Price - $175.00 


Morgan Computing Co., Inc. 
P.O. Box 112730 Carrollton, Texas 75011 (214) 245-4763 


ity about how the Advanced Logic 
Systems CP/M Plus BIOS worked, 
and I was able to figure out how to 
patch some of my peripheral drivers 
into CP/M Plus. Finally, I now had 
the tool I needed to begin to develop 
and debug enhancements to the sup- 
plied BIOS. In the process of develop- 
ing BANKSWAP I also learned how 
to create and use RSXs, which are 
very useful CP/M Plus features. 


DD} 
(Listing begins on next page) 
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Vote for your favorite feature/article. 
Circle Reader Service No. 193. 
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Listing One 


FFFF 
BBB 


0880 


G0G1 
BO4E 


6180 


8885 
9828 


GBG1 
GBB9 
OOBA 


6880 
8806 
8889 
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BANKSWAP.ASM 


A. S. Woodhull 
rev 1 July 85 
20 Oct: B83 


28 June 83 
-- minor editing 


This is designed to be run as a subprogram under DDT 
or SID, in a banked version of CP/M 3.8 The function 
of BANKSWAP is to copy blocks of memory from other 
banks to and from bank 1, using a buffer in the common 
area. Normal DDT or SID functions can then be 
performed, using the copy of the code in bank l. 

(Of course, you cannot trace through program segments 
that switch banks or access memory mapped I/O in 
another bank.) 


BANKSWAP must reside in the common area of memory, and 
a buffer area through which data can be copied must 
also be present in the common area. BANKSWAP is to be 
assembled as a Resident System Extension (RSX), which 
will automatically be relocated to the top of the TPA, 
It is assumed that the common area is large enough to 
allow an RSX to fit--if this is not true BANKSWAP will 
not work in its present form. 


Because the location of BANKSWAP in memory is not fixed 

a jump through a fixed location is set up when the BANK- 
SWAP code is installed. In this version the RST 5 vector 
at 28H is used, but any convenient location on page zero 
may be used, 


Under CP/M 3 direct access of BIOS routines is generally 
to be avoided by user programs, since BIOS routines may 
have expectations about which bank is selected when they 
are called. We will, however, do bank switching through 
the BIOS selmem routine. For generality we will use the 
BIOS vector at location l. 


true: equ Offffh 

false: equ not true 

alone: equ false smake false if attached to DDT/SID 
biosv: equ 1 zaddress of wboot in BIOS found here 
selmem: equ 4eh ;0ffset from wboot 

buflen: equ 188h ;move block size 


c 


; Gefault parameters 


movent: equ 1688h ;to move 16 pages (4K) at a time 
b@dft: equ 16¢h ;start of block in bank 8 

bidft< “eau 168h ;Start of block in bank 1 

; zero page addresses 

bdos: equ 5 zbdos entry point 

rstv: equ 28h RST 5 used as entry vector 


s 
a 


; BDOS functions used 


conin: equ 1 get a char 
printf: equ 9 7print a string 
rdbuf: equ 18 ;read a line 


’ 
; This is standard prefix for a Resident System Extension 
+ see CP/M 3 Programmer's Guide, Ist ed., sec. 4.4, p.168 


4 
COO8BGOCBGserial: db 


C3A263 
C3808 


start: 
next: 


Imp 
jmp 


0,9,8,80,6,@ 
install ;one-time routine 
GB saltered at installation 
(Continued on page 40) 
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NEW LANGUAGE BREAKS OLD RULES. 


GIVES PROGRAMMERS POWER, SPEED AND SIMPLICITY. 





Try this remarkable language, PROMAL; for 30 Days AT NO RISK and... 


We think you'll be thrilled with this 
breakthrough system when you discover 
its power, ease of use, and dazzling per- 
formance on your IBM PC, Apple Ie/IIc, 
or Commodore 64. But we don’t 
expect you to accept our claims for 
PROMAL without proof, so we invite 
you to explore the power of PROMAL on 
your own during our 30-day trial period. 


Broken Rules 
Now that PROMAL 2.0 has broken 
the rules, a structured language doesn't 
have to be slow, unwieldy and difficult to 
use. PROMAL is fast, elegant, and simple. 


What Is PROMAL? 
PROMAL stands for PROgrammer’s 
Micro Application Language. But 
PROMAL is more than a high-level lan- 


guage, it’s a total structured program- 
ming development system with a fast, 
one-pass compiler, a versatile full-screen 
editor, plus an integrated machine- 


language subroutine library. And for 
APPLE and Commodore systems it 


includes a DOS-like system “Executive.” 


Better By Design 
PROMAL was designed from “scratch” 
for optimum performance and ease of 
use on microcomputers. It has a simpli- 
fied syntax with no awkward terminators 


PROMAL 2.0 FEATURES 


COMPILED LANGUAGE 

¢ Structured indentation syntax 

* No line numbers or terminators 

* Long variable names (31 characters) 

* Global, Local, & Argument variables 

* Byte, Word, Integer & Real data types 

* Decimal or Hex number types 

¢ Functions & Procedures with passed arguments 

* Predefined DATA of any type 

* Multi-Dimensional Arrays (any type) 

* Strings & pointers 

¢ Control Statements: IF IF-ELSE, WHILE, FOR, 
CHOOSE, REPEAT-UNTIL, BREAK, NEXT, 
INCLUDE, ESCAPE, REFUGE 

* Bit-operators, shifts, type casts 

¢ Variables at any memory location 

¢ Simple Machine Language interface 

¢ Recursion supported 

* Program chaining and overlays (IMPORT/EXPORT) 

¢ Separate compilation of modules 

¢ Load and run relocatable M/L programs 

* Compile errors trapped for Editor 


EXECUTIVE (APPLE II & C64 Only) 
* Command driven, with line editing 
* Multiple user programs in memory at once 
* Function key definitions 
* Progam abort and pause 
* Prior command recall 
¢ I/O Re-direction & batch jobs 
¢ “DOS”-like commands: COPY, RENAME, DELETE, 
display FILES, TYPE, HELP etc. 
* Memory MAP SET, and display commands 


EDITOR 
¢ Full-screen, cursor driven 
* Function key controlled 
¢ Line insert, delete, search 
¢ String search and replace 
¢ Block copy, move, delete & file read/write operations 
¢ Auto indent, undent support 


LIBRARY 
¢ 50 Resident Machine-language commands 
¢ Call by name with arguments 
¢ String handling (9 routines) 
¢ Re-directable I/O (STDIN & STDOUT) 
¢ Formatted numeric output 
* Decimal & Hexadecimal I/O 
* Block fill/move/read/wnite 
¢ Cursor control & line editing 
* Data type conversion 
* Random number function 
¢ Real function support (in PROMAL): 
ABS, ATAN, COS, EXP LOG, LOG10, POWER, SIN, 
SQRT, TAN 
¢ Modem device support & much more 
























































like “;” or “}” and indentation is part 
of the syntax, so structuring your code 
is natural and easy. Just compare 
PROMAL with BASIC in this example: 


Equivalent Program Segments 


PROMAL 
EAT 
PROMPT_AT 5,24, “Add/Chg/Quit?” 
IF Reply = A 
ADD Item 
New_ltems = New_ltems + 1 
ELSE IF Reply = ‘C’ 
CHANGE Item 


UNTIL Reply = 'Q’ 11910 REM—— ——BASIC 


11920 CL =5:LN = 24:PR$ = “Add/Chg/Quit?” 
11925 GOSUB 9490:REM GET REPLY 
11930 IF RP$<>“A’ THEN 11950 

11940 I9 = IT:GOSUB 10100:REM ADD 
11945 NI=NI+ 1:GOTO 11920 

11950 IF RP$<>"C” THEN 11970 

11960 I9 = IT:GOSUB 6050:REM CHG 

11970 IF RP$<>"Q" THEN 11920 


PROMAL is readable and understand- 
able. You see the logic from the structure. 
And PROMAL lets you call procedures 
by name-—so no more GOSUBs. But 
there’s more. 


Slick Editor 


Editing your source is a snap with the 
specially-designed and integrated full- 
screen Editor-—it not only helps you 
structure your program, it even finds 
compilation errors-— automatically. 


Quick Compiler 

The compiler is a lightning-fast, 
one-pass, recursive descent design. On 
the IBM PC it crunches source to object 
at 2000 lines per minute, and it’s 
equally impressive on the Apple and 
C64. And your PROMAL source code is 
portable from machine to machine. 
That means your source can be used on 
all PROMAL target machines. 


Run-Time Speed Demon 
PROMAL blows away Apple II and 
C64 languages from BASIC and PASCAL 

to FORTH. (Send $3 for a copy of our 
full benchmark report.) It’s 2000% 
faster than BASIC. And on a normal 
IBM PC, the native 8088 code from 
PROMAL beat Turbo Pascal 3.0 by 
10% on the standard sieve benchmark! 


DOS For Those Without 

If you don't have a real “DOS,” then 
PROMAL gives you a true operating 
system environment with the built-in 
operating system Executive. (See box.) 


_ Order Form for PROMAL 30-Day Trial! 
My system is (check one) 
CT IBM PC/100% compatibles (_) APPLE Ilc/Ile et charge my 


i L} COMMODORE 64/128 


Please RUSH me: : 
[|] PROMAL Developer’s System—Compiler, Editor, 
| Library, Demo disk, 280-page manual, (Plus Execu- 

tive for Apple and C-64) and stand-alone program 
eneration (no royalties). . 
| 99.95 + 5.00 Shipping & Handling 
(_] End-User System for Apple IIc/Ile and Commodore 
64/128~-all features of Developer’s Version except 
| stand-alone program nee (Executive needed 
for program execution) , : 
$49.9 + 5.00 Shipping & Handling | 
(_] Graphics ToolBox (Apple/C64 only)—20 routines 
for hi-res graphics: windows, clipping, text-on- 
aphics using scaled, rotated, user-defined fonts. 
\ $29.95 + 2.50 Shipping & Handling 
| MEMBER 


i > 


MARKETING ASSOCIATION 


Gees eee eee eee eee eee ee 





Outside Opinion 


Naturally we're enthusiastic about 
PROMAL, but here’s what other pro- 
grammers are Saying: 


“Excellent... an ideal development 
system. ... Well done indeed!” 
M. T. V. 
Naperville, Ill. 
“Tam...so amazed by PROMAL...1I 
cannot believe the high degree of excel- 
lence of this entire package.” 
Lio; Pa. 
Ridgeway, New York 
“T don't know that I’ve ever seen a 
[system] as thoughtfully designed and as 
skillfully executed as PROMAL. Its 
logic and ease of programming are truly 
remarkable. Its speed of execution is 
phenomenal... congratulations,” 
Lok 
Alexandria, VA 


Safety In Numbers 


SMA, Inc. has been satisfying cus- 
tomers (over 100,000) since 1982 with 
innovative microcomputer products. Now 
you can join our thousands of satisfied 
PROMAL users, by trying it today. 


Try It For 30 Days On Us 


Send us some bucks and we'll send 
you PROMAL on trial for 30 days. If for 
any reason whatsoever you are not 
satisfied, just send it back fora 
quick refund of your purchase price. No 
questions asked. No risk. 


How To Order. 

Call TOLL-FREE to order with your 
credit card or use the handy order form 
below to send in your check or money- 
order for your 30-day trial. Don’t wait, 
you deserve the power of PROMAL today! 


1-800-762-7874 


In NC: 919-878-3600 
> , vz ASystems Management Associates, Inc. 
3325 Executive Drive, Dept. D-2 
Raleigh, North Carolina 27609 


PROMAL runs on IBM PC/PCjr with 192K, 

Commodore 64/128, APPLE IIc, or APPLE IIe 
with 80 Col. 128K Card, 
and is NOT COPY- 
PROTECTED. 







isa 
(_] MasterCard 
(] American Express 


(_] My check is enclosed 
Card Number 
Signature 





Exp. Date 





Name 

Address 
City 
SEA ss Send et 


NC residents add 412% sales tax. grits 
Foreign orders add $20.00 additional shipping. 





PROMAL is a trademark of Systems Management Associates, Inc. Turbo Pascal is a trademark of Borland International, Inc. 
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Listing One 
—BBBC BBBD prev: dw B 
Lf alone 
rmvflg: db g ;keep this in memory 
else 
OO0E FF rmvfla: db Off£h ;remove when main program ends 
endif 
OOOF BB nonbnk: db Gg ;banked system 
9818 42414F4B53 db "BANKSWAP' 
9818 BB “Loader: db g 
0819 B8H0 db 9,0 
; *** note: If BANKSWAP is to be attached directly to SID.COM 
; Or DDT.COM then make rmvflg #@ffh to force removal 
bankexam: 
G9G1B 218080 1xi h,@ ;get stack pointer 
GB1E 39 dad sp esata nold it for réturn 
OB1F 220FB4 shld holdsp...7..sfeset. SP to a location 
8822 318804 Ed sp,locstk feeein common memory 
; Main loop--exit by Quit or Remove command 
bankex2: 
8825 CD2E68 call prompt ;this returns address of sub 
9228 CDEDBB cali doit 7;do subroutine addressed by HL 
G82B C325B80 jmp bankex2 
G882E 111F62 prompt: 1xi d,;menu ;get ready for menu 
9031 3A9163 lda quietflag 
G8034 B7 ora a ;Suppress menu? 
9635 CA3B8B 12 prmpt2 
88038 11F462 prempt Ls: haa d,query ;set for prompt only 
G883B BEBS prmpt2: mvi c,printf 
83D CDB50B call bdos 
; Get a character 
8848 BEB] mvi c,conin 
9842 CDU5BB call bdos 
8645 CD7801 call crlt 
; make upper case, reject non-alpha 
0848 E65F ani 5fh 
G04A FE41 cpi "A! 
G@84C DA38BB +¢ prmptl j;ask again if invalid 
O04F FE5B cpi "2° +1 
0851 D2388G jnc prmptl ;ask again if invalid 
; find match in alphtbl 
8854 910700 AL b,altblen zlength of table 
6657 211102 Lx, h,alphtbl+altblen ;work back 
O865A BE Ery* cmp m 
®25B CA6308 72 match 
O85E 2B dcx h 
Q885F BD dcr g 7;count down 
8268 C25ABG jnz try 
; 1f c= @ no match found. Now form address 
0863 211182 match: l1xi h,addrtbl 
0866 99 dad b ;add offset 
8867 89 dad b yagain, 2 bytes per table entry 
; get the command address 
8868 7E mov a,m 
9869 23 inx h 
OG6A 66 mov h,m 
886B 6F mov 1,a 
G@LEC CI ret 7HL has action address 
O086D EY doit: pchl 7;Call here to use action address 
getbank: 
CGO6E 2A9CB3 lhid bOstart ;setup addresses 
40 
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FREE 8087 VERSION with orders placed prior to Dec. 195. 


We've just invented an 
Algorithm Developer. 


———— 


eR a pe EE EY AR ORE NEAR ENE A ON i HS li a RE RR gr a 


| Send me PRO/SGI™ for $99 


‘, and include 8087 Version at 


It just happens 
to be the best 
programmable 
software calculator 


PRO/SCI" 


Consider its performance. 


Programmable in simple BASIC—like statements 

Runs in both foreground and background modes 

Set up: Requires one key stroke 

Runs in background mode with most popular products (e.g. 

LOTUS, WordStar, dBase) 

e Selects and moves rows of numbers from foreground 
document to calculator for any computation (e.g., standard 
deviation for 22 rows of numbers requires six key strokes) 

e Returns results (at user's option) of all calculations to the 
foreground document 

e Single-Step mode aids in algorithm de-bug 


Functions 
sin, cos, tan, asin, ln, exp, log, sqrt, abs, int, frac, 


t round, mean, std, var, perm, comb, mod, rand, sum, 


min, max, integrate 


Operators 


arithmetic: +, —, *, / 


I logical: #AND#, #OR#, #NOT# 


Winona: Sok Se ie, oe, 


exponentiation: * *, /\ 


a factorial: ! 


NAME 
NO EXTRA CHARGE. 
:_ Wiss $5. 00 shipping & handling) ADDRESS 
Ul American Express [] VISA 
: | CO Mon ey Or dex C] MasterCard CITY/STATE/ZIP 
TELEPHONE 


: _ Oo ke: 


ee. no ed 





Be ag pipe ec See: ne 


on the market today. 
99 bucks and a phone call. 


Requires IBM PC or true compatibis with 128K RAM and one disk drive 
and MS-DOS 2.1 or higher 


California residents add 7% sales tax. Outside U.S.A. add $15.00. (If outside 
of U.S.A. payment must be by bank draft payable in the U.S. and in U.S. dollars. } 











amort.CFG 


CIS) 


6-amrtp 

months = months + 1;pr=((pmt* 12/int)/(1 +int/12) 
~(mths+1))*[1—(1+int/12)]; @next 

7-amrti 

in=—pmt—((pmt* 12/int)/(1 + int/12) ~ (mths + 1)) 
*[1—(1+int/12)]; @next 

8-sumr 

prinpd=prinpd+ pr; intpd=intpd+in;mths=mths—1; 
@ifaqt (mths = = 168); @goto(6) 


A sample formula listing 


eee is 





( 





C) +f) 








Cee), (Gas 


) 


OO): Oe Co) OO On RD 





e Spreadsheet comparison 

— Greater range of formula capabilities 

— Access requires only key stroke 

— Transfers numbers to calculator without retyping 
Full formula line editing 

Ten formulas per formula file 

Unlimited number of formula files 

8087 version available 

All calculations double precision 

Includes Accountant's style calculator with HEX, OCT, 
and BIN! 

e Runs with SIDEKICK — in all modes 


Programming Statements 

Conditional and absolute looping and branching 
Indexing by variable increment and test 

Formula con-catenation (to 1000 columns) 

Printing statements for line printer tabulations 

Debug mode — single-step and display of all variables 
Displayed decimal point control 


Constants 
pi, e, C, K, h; q, R, No, (a, g 








_ SYMSOFT 


P.O. Box 4477 
Mtn. View, CA 94043 
ers Taken: 












‘OUTSIDE CALIFORNIA 


—800/632-797! 


INSIDE CALIFORNIA , 








BA NKS WAP (Listing continued, text begins on page 34) 


Listing One 


G071 
8674 
0077 
OO7A 
007D 


0880 
6081 
8883 
0886 
0889 
8B8C 
OB8E 
8091 
8094 
0895 
6098 
GO9B 
OO9E 
OO9F 
OGA2 
®BA5 
OVAE6 
GBA9 
OGAC 
® GAD 


QBBB 


OOB1 
OBB4 
98B7 
BOBA 
88BD 
GBCB 


G8C3 
G8C6 
G8C7 
G8C9 
BBCC 
OOCF 
G8D2 
G8BD4 
G8D7 
OODA 
O6DB 
8 8DE 
O8E1 
OBE2 
OGE5 
OBES8 
OBES 
®BEC 
OOEF 
OOFB 
BOF3 


BOF4 
GOF7 
OOFA 
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226A04 
2A9E63 
228CH4 
3AA163 
328E04 


F3 
3E@B 
2A0804 
CDE6DOB 
CDF406 
3E61 
2A8804 
CDEDEB 
FB 
CDFD#8 
1100081 
2AGAB4 
Lg 
228A84 
2A8CB4 
be 
220CH4 
Z1BEB4 
35 
C28000 


CS 


2A9EG3 
220A04 
Z2A9CB3 
228CH4 
3AA103 
320EB4 


CDF4886 
F3 
3EB@ 
2A8864 
CD6DBB6 
CDFD#E 
3E81 
2A8804 
CD6DBB 
FB 
118061 
ZABAD4 
19 
220AG4 
2A8CH4 
19 
2208C04 
218E84 
35 
C2C308 
C9 


2ZABAB4 
111164 
C38401 


shld source 
lhlid blstart 
shld dest 
lda length+l z;low byte ignored 
sta count 
+ page by page take a chunk of bank @ to buffer, then move 
; to bank 1 destination 
get2: 
di ;be sure no interrupts 
mvi a,@ 
lhid selmv 
call doit 
call getbuf 
mvi Bot 
lhid selmv ;point to BIOS selmem routine 
call doit 
ei zinterrupts safe again 
call putbuf 
1xi d,buflen 
lhid source 
dad 
shld source 
lhid dest 
dad a 
shld dest 
lxi h,count ;repeat for required # of pages 
dcr m 
jnz get2 
ret 
? 
putbank: 
lhlid blstart 
shld source 
lhlid b@start 
shld dest 
lda length+l slow byte ignored 
sta count 
; page by page, move bank 1 data to buffer, then move it 
7 to bank @ 
put2s 
call getbuf 
di ;be sure no interrupts 
mvi a,@ 
lhid selmv 
call doit 
call putbuf 
mvi az 
lhid selmv 
call aoit 
ei ginterrupts safe again 
Let d,buflen 
lhid source 
dad d 
shld source 
lhid dest 
dad d 
shld dest 
1xi h,count 
acr m 
jnz put2 
ret 
; source to buffer 
getbuf: 
lhlid source 
EXE d,buffer 
jmp pbl 


; buffer to dest 


putbuf: 


(Continued on page 44) 
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C Programmers: 


Consider 104 Ways 
To Be More Productive 


If you find and choose the right development soft- 
ware, you can: cut development effort, make imprac- 
tical projects feasible, and eliminate unproductive, 
frustrating aspects of programming. 


Confused? We'll help you sort thru the huge number 
of alternatives. Call for comparisons or information. 


We carry 27 C Compilers, 4 C Intepreters, 49 Support 
Libraries, 5 C source debuggers, and 19 other C Add- 
ons for programming with MSDOS, Macintosh, or 
CP/M — more than 104 products, really. Here are 
some of the best products available: 


Learn C Programming 
Only $95 


“Introducing C” Interpreter 


Computer Innovations has done 
it again! This interactive implemen- 
tation is combined with a_ full 
screen editor and a thorough, self- 
paced manual. 

You can develop programs fas- 
ter by getting immediate feed- 
back. Programs will start instantly 
upon your command. There is no 
need to wait “for compile and 
link.” | 

Introducing C includes demo 
programs, powerful C language 
interpreter, complete C function 
library, full screen editor, color 
graphics, and C language com- 
patibility. PCDOS $95 


Add Communications 
Features fo 


Your Programs 
Greenleaf Comm Library 


Greenleaf now enables you fo 
communicate with remote systems 
or databases with an asynchronous 
communications library for C. 

Individual transmission and re- 
ception ring buffers combine with 
an interrupt driven system. This 
eliminates the extra function of 
separately calling up the com- 
munications program. 

Included are 3 library/object files, 
220 functions; 230 page manual, 
complete source code, library 
tailor-made to suit compiler and 
memory, Hayes-compatible 
modem commands, and a com- 
plete sample file transfer program. 

MSDOS ‘169 


First Aid for 
C Programs 
C ToolSet 


Save time and frustration when 
analyzing and manipulating C pro- 
grams. 

DIFF and CMP - for “intelligent” file 
comparisons. 


XREF - cross references variables 
by function and line. 


C Flow Chart - shows what func- 
tions call each other. 


C Beautifier - make source more 
readable. 


GREP - search for patterns. 


There are several other pro- 
grams for converting and printing 
programs. 

Portable. Full source code. 

CPM, MSDOS $135 


SORT/MERGE Files for 
Clean, Fast Maintenance 
with OPT-TECH SORT 


Performance should not suffer 
with DOS or other “free” sorts. 
ISAMs alone are slow when 10% or 
even less is changed/added. 
OPT-TECH includes: 

— CALLable and Standalone use 

— C, ASM, BAS, PAS, FTN, COBOL 

— Variable and fixed length 

— ] to 9 fields to sort/merge 

— Autoselect of RAM or disk 

— Options: dBASE, BTrieve files 

— ] fo 10 files Input 

— No software max for # Records 

— All common field types 

— By pass headers, limit sort 

— Inplace sort option 

— Output = Record or keys 
Try what you're using on an XT: 
1,000 128 byte records, 10 byte key 
in 33 seconds. MSDOS. $90. 


Shorten Development 
Time, Cut Frustrations 
BRIEF, The Programmer's Editor 


Compile within BRIEF; use autoindent; “templates”, C specific error 
support... use windows, UNDO, and multiple large files. 

But edit YOUR WAY. 

Every feature you'd expect and more are integrated elegantly — and it 
can be modified by you. 

You deserve: 

* the best text editor you can buy.” — John Dvorak, InforWorld, 7/8/85 

* the best code editor...” John Irwin, Data Based Advisor, 8/85 


PCDOS sCall 


Fast File Access with Source 
C-Index + 


C-Index + contains a high performance ISAM, balanced B + Tree index- 
ing system with source and variable length fields. The result is a com- 
plete data storage system to eliminate tedious programming and add effi- 
cient performance fo your programs. 

Features include random and sequential data access, virtual memory 
buffering, and multiple key indexes. 

With no royalties for programs you distribute, full source code, and 
variable length fields C-Index + fits what you are likely fo need. 

Save time and enhance your programs with C-index +. MSDOS $375 


nm 





Call for details, comparisons, or for our’C Extras Packet’ with over 50 pages of information about C support products. 


THE PROGRAMMERS SHOP 


Get File Access with TIGHTER Control 
than an ISAM or a Sort. 
db_VISTA Data Management 


6 files updating at once, entering data with validation...with no delays! 
Multiuser access at the same time. db_VISTA can do it. 

db_VISTA makes practical sophisticated applications that cannot be 
handled with reasonable performance by a “relational” or ‘flat file” 
system. But, if you want a simple ISAM, it is included too. 

Full source, no royalties and “normal” indexed file management are 
part of db_VISTA. Get more for the price of only an ISAM. 

You can minimize data stored and access records even faster and 
more logically than just using indexes. Example: address and transaction 
data should not require redundant storage of customer names or 
numbers. Use pointers. Related data fields point to other related groups 
— the “network model” of data. 

Use db_VISTA as a “normal ISAM” or save programming time, access 
time and file size. Lattice, C86, Williams, Desmet, Microsoft C. 

MSDOS Multiuser source $945, Object $445 
Single user source $445, Object $275 


The programmer’s complete source for software, services and answers 


128-DC Rockland Street, Hanover, MA 02339 


Ask about COD and PO’s. All formats available. Prices subject to change. Names of products and companies are generally their trademarks. 





(617) 826-7531 (800) 421-8006 


Circle no. 141 on reader service card. 


BA NKS WAP (Listing continued, text begins on page 34) 


Listing One 


86FD 
01088 
9183 


6104 


0187 
0108 
G19 
G1BA 
8108 
B1GBC 
G18D 
G1BE 


0111 


G112 
9115 
0117 
B11A 
®11D 
G11E 


G11F 
G122 
9124 
$127 
G12A 
G12D 
0136 
0133 
9136 
8138 
G13B 
G13E 
9141 
0144 


0147 
G14A 
G14C 
O14F 
9152 
6155 
8158 
B15B 
G15E 


G15F 
9162 
0163 
0166 
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2ZABCH4 
111104 
EB 


C10001 


TE 
ade 
23 
is 
OB 
78 
Bl 
C20761 


CS 


116463 
BEB9 
CDO580 
2ZABFO4 
F9 

FF 


111763 
BEBS 

CDO58B 
2A9CB3 
CDDA®1 
2i9Cé3 
CD8101 
112563 
GEBS 

CDB508 
ZA9EB3 
CDDA61 
219EB3 
CD8181 


113383 
GEB9 
CDB50B 
2AAG03 
CDDA@1 
21A663 
CD8161 
CD7681 
co 


3A9163 
2F 
329183 
€9 


lhid 
1xi 
xcha 


dest 
d,buffer 


* common code for getbuf and putbuf 


pbl: 


; move (BC) bytes from 


ge § 


b,buflen 


(HL) to (DE) (could use BIOS move 


:- routine for: Ehis) 


move: 


mov 
stax 
inx 
inx 
dcx 
mov 
ora 
jnz 
ret 


a,m 


Q°9 7a WD 


move 


Go back to SID/DDT 


7 
; 
quits 


e 
‘ 


Li 
mvi 
call 
Lhd 
sphl 
rst 


if 


d,qmsg ;say how to get back 
G, Drinker 

bdos 

holdsp ;restore stack pointer 
7 sback-to DOT or <SID 
alone 


; Set for removal on termination of SID or DDT 


remove : 


~e Oe 


adset: 


Lx2 
mvi 
4 ei 
mvi 
rst 
endif 


EXE 
mvi 
call 
lhid 
call 
Ex<s 
call 
LT 
mvi 
call 
lhid 
call 
Pex 
cart 


h,rmvflg ;set the remove flag 
m,@ffh oo ae bit, Lae REX. Drer rs 
h,rstv ;then wipe out the entry 
m,®f£f£fh eae MP With. an RST 7 

7 z;leave via the debugger 
salone 


Set up addresses for move, also set up length 


d,b@id ;tell current bank @ addr 
c,printf 

bdos 

bO@start ;get the address 

addro Palio py 2k. 3% 

h,b@start 

update ;enter hex to (HL) 
ad,blid .;do it again for bank 1 
G,printt : 

baos -Ce LL 

blstart 

addro 

h,blstart 

update ;get new address, if any 


Can fall through from adset or enter directly here to set 
length of block moved 


? 
lnset: 


e 
’ 
e 
‘ 


xpert: 


e 
’ 


1xXt 
mvi 
call 
lhiad 
call 
lxi 
call 
call 
ret 


lda 
cma 
sta 
ret 


d,lnmsg ;tell current length 
c,printf 
bdos 
length 
addro 
h,length 
update 
Cris 


;0ffer to change it 


Toggle menu off/on 


gQuietflag 
;toggle 
quietflag 


; Get here on invalid command 


(Continued on page 46) | 
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NEW FEATURES 
MAKE IT 
BETTER THAN EVER 


VEDIT is the most often reviewed and highly 
acclaimed text editor ever. And no wonder - we have 
listened to and supported our users for almost six 
years and have continually improved our products by 
incorporating hundreds of their suggestions. Now we 
have a revolutionary new version of VEDIT PLUS with 
all the program development features you've asked 
for. 

The unique on-line interactive help is a first - it 
can be easily expanded or edited. You can create 
your own on-line help with menus and sub-menus for 
compilers, style guides, even non-computer sub- 
jects. 


NEW FEATURES 


@ Memory management supports up to 1 M Byte 
@ MS-DOS, PCDOS pathname support 

@ Interactive on-line help 

@ Paragraph justification 


@ Create your own edit functions with macros 

@ Auto-execute macros as application pro- 
grams 

@ Easy to use installation/customization pro- 
gram for keyboard assignment, screen attrib- 
ules, etc. 





The supplied macros are menu driven and im- 
mediately usable. Sort a mailing list. Perform a full 
screen file comparison and update one file from the 
other - merge the work done by two programmers on 
the same file. Replace the command prompt with a 
menu for new users. And an exceptional 8080 to 8086 
translator is an inexpensive option. 


MSDOS is a trademark of Microsoft  PCDOSisa trademark of BM  CPM80 isa trademark of Digital Research  WordStar is a trademark of MicroPro 


sg We have 





i aSurprise 


tor You. 


Your own editing macros are easy to write and 
will automate otherwise tedious chores. You can use 
a macro the instant you type it or load it from disk - 
there is no time wasted compiling or linking. Macros 
are accessible from function keys - allowing you to 
Create your own editing functions. 


@ Simultaneously edit up to 36 files of unlimited 
size 

@ Unlimited file handling - merge, split, extract, 
view, print and more 

@ Search with wild cards and patterns 

@ On-line integer calculator 


@ Complete macro programming language 
including: 
IF-THEN-ELSE and looping 
User prompts and input 
Algebraic expressions with variables 
Complete TECO capability 

@ Free macros 





VEDIT PLUS isn't only for programming. The 
word processing features include word wrap, para- 
graph formatting with justification, printing and hori- 
zontal scrolling for spreadsheets. Converts WordStar 
files and edits dBASE source files. Add V-PRINT for 
fancier features such as automatic index generation 
and printer font support (incl. laser printers). Then 
add V-SPELL, the ultimate spelling corrector, and 
youll have a word processing system that can do 
virtually everything you need. 

As a programming or writing professional, 
VEDIT PLUS gives you refinement, power and flexi- 
bility you will never outgrow. 

VEDIT PLUS supports virtually every MS-DOS, 
PCDOS, CP/M-86 and CP/M computer and is a favor- 
ite among OEMs. VEDIT PLUS is not copy protected. 
Order direct or from any of our over 400 dealers. 
$225. (Discounts available for current VEDIT users.) 
Site licensing and educational discounts. 


CompuView 


1955 PAULINE BLVD., ANN ARBOR, MICHIGAN 48103 
(313) 996-1299, TELEX - 701821 
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BA NKS WAP (Listing continued, text begins on page 34) 


Listing One 


0167 
O16A 


B16C 
G16F 


9170 
0171 
9172 
0173 
0174 
0177 
8179 
B17C 
G17D 
Q17E 
G17F 
6186 


9181 


0182 
$185 
$188 
618B 
G18D 
8190 
8193 
8195 
0198 
G19B 
G19E 
G19F 


G1A2 
GB1A3 


B1A4 
G1A7 
G1A8 
G1AB 
B1AC 
B1AD 
B1AF 
G1B2 
G1B4 
G1B6 
G1B9 
®1BB 
B1BE 
G1CB 
G1C2 
G1C5 
G1C7 
B1CA 
B1CB 
G1CC 
G1CD 
B1CE 
B1ICF 
81D 
G@1D1 
G1D4 
81D5 
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LIFA@2 
GEBS 


CDO588 
C9 


Co 

D5 

E5 

F5 
111483 
GEBS 
CDO500 
Fl 

El 

D1 

Ci 

C9 


E5 


210080 
229383 
114263 
BEBS 
CD#508 
119293 
CEOA 
CDB58B 
CD7€@81 
3A9383 
B7 
C2A481 


El 
Co 


2162888 
47 
119463 
1A 

is 
FE60 
DAB481 
E65F 
D632 
FA8261 
FEOA 
DACA61 
D687 
FEGA 
DA8261 
FE1® 
D28261 
29 

29 

29 

29 

85 

6F 

65 
C2AB81 
EB 

El 


na: LXE 
mvi 


call 

ret 
erlez push 
push 
push 
push 
ix 
mvi 
cal] 
pop 
pop 
pop 
pop 
ret 


e 
a 


d,;namsg 


©; printt 


bdos 


Taw 


psw 


;say can't do it 


d,crlfstring 


€,printr 


bdos 
psw 
h 

d 

b 


; get string, do nothing if null, else convert, store at (HL) 


update: 
push 


h 


ssave the location 


; loop back here if input is not valid 


1xi 
shld 
lxi 
mvi 
call 
1xi 
mvi 
call 
Cail 
lda 
ora 
jnz 


updl: 


h,@ 
inbuf+l 


d,chquery 
CyPprintt 


bdos 

d, inbuf 
C7rabut 
bdos 
crit 
inbuf+l 
a 
convert 


+ null string, go back 


pop 
ret 


sinitial buffer 


;say what's up 


;read console until <ret> 


;get length of hex string 
;check for @ length input 


;retrieve value at entry 


Convert the hex string in the buffer to binary 


‘ 

convert: 
LENL 
mov 
lxi 
ldax 
inx 
cpi 
TS 
ani 
sui 
jm 
cpi 
+c 
sui 
cpi 
jc 
cpi 
jnec 
dad 
dad 
dad 
dad 
add 
mov 
dcr 
jnz 
xchg 
pop 


conv2: 


conv3: 


nums 


h,@ ;Sstart with a zero 
b,a shold length in B 
d,inbuf+2 
a ;get first (or next) char 
d 
68h 
conv3 
5fh ;make lower case if necessary 
1g! 
updl ;must be valid hex, @..9, A..F 
Gah 
num ;jump if a good numeric 
4 
Sah 
updl 7error if not good alpha 
16h 
updl 7error if not good alpha 
h ;multiply current val by 16 
h 
h 
h 
1 sadd new least significant digit 
l,a 
b ;countdown the digits 
conv2 
z;result to DE 
h 7HL at entry says where to it 


(Continued on page 48) 
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More Power Than You Thought Possible 


Arity offers the first serious implementation of Prolog for IBM personal computers. Arity/Pro- 
log is a powerful, highly optimized, and extended version of the logic programming 
language Prolog. Imagine building software applications with a language that solves prob- 
lems through deduction and logical inference. The task of creating complex programs is 
much faster and easier, resulting in lower development costs. Arity/Prolog is now in use in a 
wide range of applications in industry, business, research, and education. The solution— 
the Arity/Prolog Interpreter: 


i Interface to assembly 


Bi Source level debugger language and ‘C’ 











@ Virtual databases, each © ext ae 

with a workspace of 16 manipulation 

megabytes 

gay @ Integrated program- 

Bi Floating-point ming shell to MSDOS 

arithmetic 

i Comprehensive set of 

B String support for evaluable predicates 

efficient text handlin 

’ Bi Definite clause 
grammar support 





Arity/Prolog Interpreter $495.00 


Arity also offers the Arity/Prolog Compiler and Interpreter, a sophisticated development envi- 
ronment for building Al applications. Essential for producing fast, serious production code. 


Arity/Prolog Compiler and Interpreter $1950.00 


The Arity/Prolog Demo Disk is available for $19.95. li Arity/Prolog products run on the IBM PC, 
XT, AT, and all IBM compatibles. lM To order, call (617) 371-2422 or use the order form below. 


— arity corporation 358 Baker Avenue, Concord, MA 01742 


a a ae os 
—- — ———— ———— —— mr ee 


[Quantity | Product | _unitPrice | Total Price _ 
a ee ee 
| fim | sco 
A eee 





Name 






Organization 










Address 















CZ Enclosed is a check or CZ Please bill my Subtotal 
money order to Arity Corporation 1 Mastercard OVisa (© American Express 

MA residents add 5% sales tax 
idout hos Bee Ce ec El Teed orp cal a a i 
Valid / 2 acne seascape stir iatae nti itenimecnn ect ; y 

signature Cj Please send me more information about 
Arity and Arity/Prolog 

— G@&FIEY 358 Baker Avenue, Concord, MA 01742 M-AD-05 


Circle no. 121 on reader service card. 
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BA NKS WAP (Listing continued, text begins on page 34) 


(Continued on page 50) 


[isting One 
G81D6 73 Mov m,e 
GB1D7 23 inx h 
G1D8 72 mov m,d 
G1D9 C9 ret 
; Print HL as hex 
addro: 
B1DA D5 push qd 
G@1DB E5 push h 
®1DC EB xchg 
G1DD 215c83 lxi h,hexstr ;where to build string 
G1E@ 7A mov a,d 
G1E1 CDF36@1 call byte eget A-as 2. ASCTT: chars -at. (HL) 
G1E4 7B . mov a,e 
G1E5 CDF361 call byte ;again, low byte 
G1E8 115Cc83 Xt d,hexstr 
G1EB BEGB9 mvi c,printf 
B1ED CDO508 call bdos pprint it 
B1FB El pop h 
G1F1 Dl pop d 
B1F2 C9 ret 
; Convert byte to hex ASCII chars, put at (HL) 
G1F3 F5 byte: push psw 
Q1F4 1F rar 7get high nybble 
G1F5 1F rar 
Q1F6 IF rar 
O1F7 IF rar 
B1F8 CDFC#1 call nybble 
G1FB Fl pop psw 7fall through for low nybble 
+ nybble makes 1 char, advances output pointer 
BIFC E6GF nybble: ani 8fh 
B1FE C638 adi 'g! 
8208 FE3A cpi 3ah 
9202 DABTB2 jc nput 
$285 C687 adi 7 
8287 77 nput: mov m,a 
8208 23 inx h 
8289 C9 ret 
; Acceptable command inputs go in this table 
alphtbl: 
820A 68 ab g ;dummy for no match 
G928B 41 db TAS 
828C 47 db “G? 
G828D 4C db kee 
B2BE 58 db ip 
O920F 51 db sc 
LE alone 
db Rt 
endif ;alone 
218 58 db x 
9007 = altblen: equ S-alphtbl 
; addresses of action routines, same order as alphtabl 
addrtbl: 
9211 6781 dw na ;not available 
9213 1F@1 dw adset yaddress set 
8215 6EBB dw getbank 
8217 4761 dw iInset zslength set 
0219 B1BO dw putbank 
G21B 1201 dw quit 
if alone 
dw remove 
endif 
48 


Dr. Dobb’s Journal, December 1985 





helps save time, money and cut frustrations. Compare, evaluate, and find products. 


SERVICES 

* Programmer’s Referral List 
* Compare Products 

* Help find a Publisher * Rush Order 

¢ Evaluation Literature FREE + Over 700 products 
* BULLETIN BOARD - 7PM to 7AM 617-826-4086 


Vee a adme Coe Amt 


ExpertEASE - Inductive. © PCDOS Call 
EXSYS - All RAM, Probability. Why. 
Trees, Solid, files, popular PCDOS $359 
INSIGHT | - Probabilities, required 
thresholds, menus, fast PCDOS $ 95 
INSIGHT 2 - adds backward, forward, par- 
titions, dB2, lang. access. PCDOS $449 
Others: APES ($359), Advisor ($949), 
ES Construction ($100), ESP ($845), 
Expert Choice ($449), more. 


GC LISP - “Common”, rich. 
Interpreter - Interactive Tutorial 495 Call 
LARGE Model - 2 to 15 meg. 695 649 
Compiler and Interpreter 1190 1045 
IQ LISP - MacLISP and InterLISP. 
Well-liked, 1,000K. PCDOS $149 
TLC LISP - “LISP-Machine” - like, all 
RAM, classes, turtle graphics, 8087, 
compiler. CPM-86, MSDOS $235 
WALTZ LISP - “FRANZ LISP” - like, big 
nums, debug, CPM-80, MSDOS $149 
Others: ExperLISP ($439), TransLisp-PC 
($75), BYSO ($125), MuLISP-86 ($199) 


AI- PROLOG 


ARITY PROLOG - full, debug, ASM, C, 
virtual. Compiler $1950 MSDOS $495 
MPROLOG - Rich syntax, editor, segment 
work space, portable. PCDOS $725 
Prolog-86 - Learn Fast. Standard, 
tutorials, samples MSDOS Call 
Others: Prolog-1 ($359), Prolog-2 ($1895), 
Prolog V ($65), V + ($95), MicroProlog 
($229), Prof. MicroProlog ($359). 


OTTO eR a MTC ITY 


BRIEF Programmer's Editor - undo, 
windows, reconfigure PCDOS Call 
C Screen with source 80/86 $ 75 
EMACS by UniPress - powerful, 
multifile, windows, DOS, MLISP. 
programming. Source: $949 MSDOS 
$299 
Entry System for C -Bellesoft PCDOS $325 
FirsTime by Spruce - Improve 
productivity. Syntax directed for Turbo 
($69), Pascal ($229), or C ($239) 
PMATE - power, multitask 80/86 $159 
VEDIT - well liked PCDOS $119 
XTC - multitasking PCDOS $ 95 


MultiH ALO - full 2.0, all graphics 
boards, printers, comprehensive. 
For Turbo ($95), for GC Lisp 
($250), Others ($195). 


* Dealer’s Inquire 
* Newsletter 


List Our 


SERVICE: FREE NEWSLETTER 


Software development and AI on micros: trends, forecasts, con- 


troversies, innovations, and techniques. Plus announcement of 80 
NEW tools. CALL for “Newsletter Packet.” 
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BDS C - solid value, fast CPM80 $125 
C86 by CI - 8087, reliable MSDOS Call 


Hippo Level 2 ($375), Lev. 1 MAC $109 
Lattice C - from Lifeboat MSDOS $289 

from Lattice MSDOS $339 
Consulair Mac C w/toolkit MAC $299 
Megamax - tight, full MAC $239 
Microsoft C 3.0 - new, tight. MSDOS $259 


Q/C 88 by Code Works - Compiler source, 
decent code, cross/native MSDOS $295 
Williams - source debug. MSDOS $399 
Wizard C - Lattice C compatible, 
full Sys. III, lint, fast. © MSDOS 


C Language - Interpreters 


C-terp by Gimpel - fullK & R, .OBJ 
and ASM, large progs. _MSDOS 
INSTANT C - Source debug, Edit to 
Run-3 seconds MSDOS 
INTRODUCING C - Interactive C to 
learn fast, tutorial PCDOS 
RUN/C - improved MSDOS 


C Libraries - General 


$399 


$249 
$399 


$115 
$109 


Blaise C Tools 1 ($109), C Tools 2. $89 
C Food by Lattice - ask for source $119 
C*LIB by Vance $125 
C Utilities by Essential - 300+ $149 
Greenleaf Functions - portable & ASM _ $149 
Polytron - for Lattice, ASM source $ 99 
Software Horizons - Pack | $129 
C Libraries - Applications 
COMMUNICATIONS: Asynch Mgr $175 
Greenleaf - full, respected $149 
Software Horizons - Pack 3 $139 
FILES: Btrieve - multilanguage $199 
C Index by Trio - full B + Tree, 
vary length field, multi compiler 
/File is object only $ 89 
/Pro is partial source $179 
/Plus is full source $349 


C Tree by Faircom - source, port. $349 
dbcISAM by Lattice for dB2 or 3 $219 
dbVISTA - full indexing, plus optional 
record types, pointers. Network. 
Object only - MS C, LAT, C86 $179 
Source - Single user $459 
Source - Multiuser $929 


Note: All prices subject to change without notice. 
Mention this ad. Some prices are specials. 
Ask about COD and PO’s. All format’s available. 


Call for a catalog, literature, and solid value 


8())-421-8006 


THE PROGRAMMER’S SHOP™ 


128-i\D Rockland Street, Hanover, MA 02339 
Mass: 800-442-8070 or 617-826-7531 1085 
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RECENT DISCOVERY 


Periscope II symbolic debugger - 
some source level, 2 screens, 


interrupt switch $129 
| 

C Debug - Source debuggers - by 

Complete Soft ($269), MSD ($149). 
CPRINT - by ENSCO, thorough $ 50 
C Sharp - well supported, Source, 

realtime, tasks MSDOS $600 
C Sprite Debugger by Lattice $149 
C ToolSet - DIFF, xref, source $135 
Faster C - replace LINK $ 95 
PC Lint - full C program checking 

and big, small model. All C’s $119 


Low Cost Languages 


C/86 by Software Toolworks -Quick $ 65 
Introducing C - Step by step training $109 
Let’s C by Mark Williams $ 59 
TransLisp-PC - “Common Lisp”, tutorial, 


graphics, 230 functions, samples $ 75 
Modula 2 by ITC - Windows, tight $ 80 
PC/Forth by LMI - °83, DOS, ASM_ $129 
Prolog-86 - enhanced, DOS, Edit Call 
Quick BASIC by Microsoft - Compile 

BASICA, Link b. 79 
Snobol4 + by Catspaw - Strings $ 85 

TURBO PASCAL and SUPPORT 
BORLAND: Turbo 3.0 $ 49 


3.0 with 8087 or BCD 
3.0 with 8087 and BCD 
Turbo Graphix - graphs, windows 
Turbo Toolbox 
Turbo Tutor 
TURBO... Asynch by Blaise, full 
Power Tools by Blaise - library 
Power Utilities - profiler, pp 
MetaWindow by Metagraphics 
OTHERS: FirsTime ($69), Screen 
Sculptor ($99), Pascal Pac ($100), 
Tidy ($45), Multi Halo ($95). 
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Forlib+ by Alpha - graph, comm. $ 59 
MACFortran by Microsoft -full’77 = $239 
MicroSubMath - Trig, Vessel $250 
PolyFortran - xref, pp, screen $149 
RM Fortran - enhanced “IBM Ftn” $429 
Scientific Subroutines - Matrix $149 
Strings and Things - registers, shell $ 59 
MultiLanguage Support 
Btrieve/N ($469), single user $199 
Codesifter - executive profiler $109 
DoubleDOS - nice, two task $79 
LMK Make by Lattice $159 
MultiLink - multitasking $249 
Panel - Screens, windows $239 
PFinish - Profile by line, routine $299 
PLink-86 - 32 levels, overlays $289 
PolyLibrarian - Manage .OBJs $ 89 
TexSys - Source code control $ 89 
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BANKS WAP (Listing continued, text begins on page 34) 


Listing One 
6821D 5F61 dw xpert ;expert mode, no menu 
®21F 42616E6B73menu: db "Bankswap 1.8 by A. S. Woodhull 
16/20/83',@dh, Gah 
9248 66756566374 db "functions available:',@dh,@ah 
G@25E B9412E2E2E db ’ A...set move Addresses',@dh, Gah 
8277 B9472E2E2E db : G...Get alternate bank',9@dh,Q@ah 
9298 B94C2E2E2E db : L...-set move Length',9@dh, Bah 
82A6 869502F2E2E ab : P...Put alternate bank',@dh,9ah 
®2BF B9512E2E2E db F Q..-Quit to SID or DDT',#dh, Bah 
if alone 
db : R...-Remove BANKSWAP'!,@dh, Bah 
endif 
G@2D8 B89582E2E2E db ' X...eXpert mode (no menu)',9#dh, Bah 
92F4 BDBA3F3F28query: db Odh,@ah,'?? $' 
O62FA 2E2E2E6675namsg: db ',..function not available,' 
Crirvstrings 
$314 O8DGA24 db Odh,@ah,'S' 
9317 A2616E6B20bBGid: db "Bank @ addr: S' 
9325 42616E6B20blid: db ‘Bank 1 addr: $' 
9333 4C656E67741nmsg: db ‘Length is now §S' 
chquery: 
$342 4368616E67 db "Change to? (CR to keep): $' 
G35C hexstr ds 4 
9369 488D8A24 db 'H',@dh,@ah,'S' 
9364 52652D656Eqmsg: db "Re-enter BANKSWAP from DDT or SID by "G28"! 
938E BDBA24 db Bdh,Vah,'S' 
quietflac: 
8391 88 db Q sinitialized off 
9392 98 ifbwes:. ‘db 8 ;max length of buffer 
8393 ds 9 
; default parameters: alter by Set and Length commands 
G39C B81 b@start: dw b@dft 
O939E 8881 blstart: dw bldft 
G93A8 8018 length: dw movent 
; One-time routine, on lst BDOS call intercepted 
install: 
@3A2 C5 push b ;keep everything as it was 
93A3 D5 push d ?eeeSO BDOS function can be 
93A4 E5 push h 7-.--completed 
G83A5 F5 push psw 
; set up restart vector for re-entry 
G3A6 3EC3 mvi a,®c3h ;a JMP instruction 
93A8 322808 sta rstv 
G83AB 211B08 Ly h,bankexam 
B3AE 222968 shld rstvt+l 
; set up address of BIOS routine accessed directly 
G3Bl 2AG1600 lhid biosv sfind where BIOS is 
93B4 114E68 1lxi d,selmem 7e.e-and add offset 
83B7 19 dad d 
83B8 220804 shld selmv 
; then patch the RSX prefix to prevent reinstallation 
83BB 2AG8ABG lhid next+l 
O3BE 228700 shld start+l 
; tell ‘em we're ready 
93Cl SEBS mvi GC Prints 
83C3 11D083 lxi d,imsg 
63C6 CDB9BB call next 
83C9 Fl pop psw ;continue with the task that 
O83CA El pop h 7e.e-waS So rudely interrupted 
®3CB Dl pop d 
SCC. Ci pop b 
B83CD C3896 jmp next 
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The First Idea-Processor For Programmers. 






FirsTime 


Has features no other editor has. 


D 
= ai; 


os Wiebe Shope here. 


a 


=r] 


@ Fast program entry through single keystroke statement generators. 

@ Fast editing through syntax oriented cursor movements. 

® Dramatically reduced debugging time through immediate syntax checking. 
@ Fast development through unique programmer oriented features. 


@ Automatic program formatter. 


FirsTime is a True Syntax Directed Editor. 

As the world’s most advanced syntax-directed 
editor, FirsTime lets you work with ideas by taking 
care of the low-level syntax details of your program. 
For example, you can generate complete statement 
skeletons with one keystroke. Move the cursor from 
one procedure to the next with one keystroke. Type 
in code, and it’s instantly formatted (you specify the 
rules). Type an error, and FirsTime warns you 
immediately. You can continue working if you wish. 
Later, you can use the search-for-error command to 
find the error and fix it. 


FirsTime Has Thorough Error Checking. 
FirsTime not only checks your syntax, but also 
semantics. FirsTime identifies: 

e Undefined variables, types and constants. 

e Assignment statements with type mismatches. 

e Errors in include files and macro expansions. 


To Order Call: (201) 741-8188 or write: 


SPRUCE TECHNOLOGY CORPORATION 


P.O. Box 7948 
Shrewsbury, NJ 07701 


FirsTime is a trademark of Spruce Technology Corporation © MS-DOS is a 
trademark of Microsoft Corporation @ IBM is a trademark of International 
Business Machines Inc. ® Turbo Pascal is a trademark of Borland International 
e dBase Ill is a trademark of Ashton-Tate. 


FirsTime Lets You Work With Ideas. 


The Zoom command gives you a top down view of 
your program logic. 


The View macro command shows the expansions of a 
C macro while in the editor. 


The View include file command instantly shows you 
the contents of an include file. 


The 7ransform command allows you to change a 
Statement to another similar statement, for 
example, a FOR to an equivalent WHILE. 

The Search for next error command allows you to 
find errors throughout your program. 

The Cursor movement commands let you traverse 


your program by logical elements, not just 
characters. 


FirsTime Works With Existing Files. 


FirsTime works with standard ASCII files, so you can 
edit any existing source files. 


FirsTime for Turbo Pascal S 74.95 
FirsTime for dBase IIl $125.00 
FirsTime for MS—Pascal $245.00 
FirsTime for C $295.00 


In Germany, Austria and Switzerland contact: 
Markt & Technik Software Verlag 

Munchen, W. Germany 

(089) 4613-0 


Circle no. 164 on reader service card. 
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BA NKS WAP (Listing continued, text begins on page 34) 


Listing One 
@3D6 42414E4B53imsg: db "BANKSWAP loaded. To access from DDT or ' 
O@3F7 5349442074 db "SID type "G28"! 
84095 BDBA24 db Odh,@ah,'$' 
; reuse installation code area for stack space 
locstk- 
; uninitialized storage 
0488 selmv: ds 2 sused for BIOS call to selmem 
G40A source: ds 2 s;for moves to buffer oes 
BAGC dest: ds 2 for moves from buffer 
GABE count: ds 1 sblocks to move 
G40F holdsp: ds 2 ;stack pointer from DDT or SID 
buffer: 
G411 ds buflen 
8511 end End Listing One 


Listing Two 


RSXMAKER.SUB assemble RSX and attach to existing COM file 
ASW 21 Oct 83 
Usage: A>SUBMIT RSXMAKER <comfile> <asmfile> 


e =e = 6©™6e «6™SE 


rmac $2 

Link: $2 top] 

ren $2.rsx=$2.prl 

gencom $1 $2 End Listing Two 


Listing Three 


Listing Three. An example of the use of BANKSWAP to allow examination of a 
portion of a custom disk drive routine installed in bank 86. 
(Comments added in parentheses). 


D>sid 
BANKSWAP loaded. To access from DDT or SID type "G28" 
CP/M 3 SID - Version 3.9 
#g28 (go to BANKSWAP) 
Bankswap 1,8 by A. S. Woodhull 10/28/83 
functions available: 

A,..set move Addresses 

G...Get alternate bank 

L...set move Length 

P...-Put alternate bank 

O45 00LE) £6: STDier PDT 

X...eXpert mode (no menu) 


me. (remove the menu) 

ee (set up range) 

Bank @ addr: 91686H 

Change to? (CR to keep): 7808 (don't accept default) 


Bank 1 addr: @18@H 


Change to? (CR to keep): 7908 
Length is now 1@6@H 


Change to? (CR to keep): <CR> (length is OK) 

zc: .g (get the data from bank @Q) 

va (back to SID) 

Re-enter BANKSWAP from DDT or SID by "G28" 

*D61E (we're back) 

#d7cB88 Tc3E£ (examine the data from bank 9) 


TCOUs: C2 ee. JC 0s SR pees: £5 FC 22 On eee. CS 6027321 ww lew load bccc od! 
7C1LO: ‘74 BC-CS OG 72 2h 18) 0S (C3 09)-73-AE PF] Oc AS 84 Co. Sie cccBicees 
7C280: D® 2D AE Fl OC AC DF OC BY BA GC 9D 8BE CB AD DE 6 TS ewe a aS OSE & eee 
7038: 8C 4A 48 AO 0B 2A BD EF OC GBD Fl OC AB BO 8H CH LTH. c®ecccccccce 
#°C (return to CP/M) 


D> End Listings 


52 Dr. Dobb’s Journal, December 1985 


oe iene sere 


- 


acne 











BRIEF 


‘BRIEF, The Programmer’s Editor, is simply 


the best text editor you can buy.”’ 


John Dvorak, InfoWorid 7/8/85 





Choosing the right program editor is an extremely “A BONA FIDE UNDO’”’ Steve McMahon - BYTE 
important decision. After all, more time is spent with REVIEW “BUILD YOUR DREAM EDITOR” MARCH 1985 
your program editor than with any other category of Here are Steve McMahon’s exact words: *...BRIEF 
software. A good program editor helps to stimulate implements a true undo facility, by default allowing 
creativity and produce programs of superior design. command-by-command recovery from the last 30 


A poor program editor, on the other hand, fights you commands...The number of commands you want to 
every step of the way. It can slow you down, get in be able to undo can be changed.” (up to 300) “Only 
your way, and make even the simplest tasks difficult. with BRIEF, though, was it possible to undo a macro 


that produced 4000 words of text with a single 


BRIEF-PROGRAMEDITING YOUR WAY jaystroke.” 
Every programmer has an individual style that EVERY FEATURE YOU WANT 


makes their work unique. Most program editors com- 
BRIEF supports practically every feature you've ever 


promise that style by forcing the programmer to con- 
form to their methods. Not so with BRIEF. seen, and some you probably haven't thought of yet. 


BRIEF’s most powerful feature is its ability to ° re ee : oo 
conform to your way of programming. BRIEF can be ° Windows (Tiled & * 15 Minute Learning 
easily tailored/customized to your individual Pop-up) * Reconfigurable 
preferences. For example, keyboard reassignment e Unlimited File Size Keyboard 
allows tite keyboard to be used in whatever way you ¢ Full UNDO (up to 300) e Adjustable line length (up to 512) 
prefer. Keystroke macros allow long sequences of e True Automatic Indent e Search for “Regular 


editor commands to be repeated by pressing a single for © Expressions ° 
key. Plus you can simultaneously work with * Exit to DOS Inside Mnemonic Key 


numerous program and data files, and configure eraen ern 
¢ Compile programs Horizontal Scrolling 


many windows to control BRIEF’s visual presentation. ae 
me " : eee, = en i ¢ Comprehensive Error 
e Uses vaiiable Recovery 
EXPERT USERS OF EVERY MAJOR Memory 2 déek ka Demelee 
e Online Help Compiled, Programmabl 
EDITOR HAVE SWITCHED! 5 ae oe 


(Call For Details) ge ae a a ee a ae Se de et 


= = make.c ee Sher Fane 
handle = 9; 


lint | A TYPICAL BRIEF SCREEN 


Notice there are three windows on the 





main (argc, argvil 
screen simultaneously and each one is 








{int argc, ’ 
lwinclude * anette tase i / makefile.h viewing a different file. The mainline of a C 
makefile.h: program is visible in the uppermost window; 


the programmer has run a syntax checking 


Phas: 19 gefini tions. 51% macro which found a mismatched open 


wet 
et 
typedef struct it 
{ eed 
= Hopefully, it won’ t be unreasonab 
3 / 


i short action, 















state; | that have been written. parenthesis in the arguments to the 
y Fa; mainline. The other two windows show 
tifde FSA | wea ; 
Fsa peerital - = {/* Alphanus Co pirates struct ced_struct header files containing information crucial to 
/%* State @. */ 19| chan xond_text! the design of the program. BRIEF can have 
/ State 1. ¥/ 16, “6, 18 a ss an unlimited number of windows and files 
7* State c. @, 2, struct cmd_struct *next_c , 
(State 4, a 5. 1i]> xed Ptr, Crd: accessed simultaneously. 
/* State 4 8, ¥ 
















Mismatched open parenthesis. Line: Li:'.. fol: 14 2:17 pm 

BRIEF’S ONLY LIMITATIONS ARE THE ONES YOU SET AVAILABILITY: IBM-PC. AT. Compatibles 
& TANDY 2000 

Try BRIEF with a full 30 day moneyback guarantee. Cc, * 

Only $195. Call 800-821-2492. olution 


S ystems” 


335-D Washington St., Norwell, MA 02061 (617) 659-1571 800-821-2492. 


eview by Mr. McMahon may be found in BYTE Magazine March 1985. 





“Steve McMahon's quote courtesy Suntype Publishing Systems. BYTEr 
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Adding a COPY Command to 


ProDOS 





by Shawn Day 


Apple-compatible system, you may 

have noticed that you cannot copy 
files from one volume to another 
without running FILER and losing 
any BASIC program you have in 
memory. I ran across this problem 
when I tried to copy files to the Pro- 
DOS RAM disk from within a BASIC 
program: I wanted my startup pro- 
gram to load all of the ProDOS editor 
and assembler files into the RAM 
disk so that I could have the maxi- 
mum amount of storage space on my 
single disk drive and speed up the 
process of assembling long source 
files. To solve this problem, I wrote a 
program that adds a COPY command 
to ProDOS. 


f you use ProDOS on an Apple or 


the same volume or to copy files from 
one volume to another. If you are in 
the process of copying files from one 
volume to another and no ProDOS 
prefix has been set, you must specify 
the complete path name for both 
files, e.g., 


COPY /MYDISK/HELLO, 
/RAM/STARTUP 


If a ProDOS prefix has been set, it 
will automatically be prefixed to ei- 
ther path name if required. For ex- 
ample, if the prefix is /RAM/, the 
command 


COPY /MYDISK/HELLO, 
STARTUP 





Additional banks of memory can buy you both 
speed and more usable memory even though your 
program must reside entirely in one bank. 





Using the Program 

To add the COPY command to Pro- 
DOS, simply type BRUN COPY or use 
the general-purpose “run” command, 
-COPY. The code will be installed in 
memory above the ProDOS file buff- 
ers and protected in the system bit 
map. To execute the command, use 
the following syntax: 


COPY pathname] ,pathname2 


A new file (pathname2) will be 
created, and the contents of the file 
indicated by pathname] will be cop- 
ied into it. You can use this command 
to make backup copies of any file on 





Shawn Day, 724 Glenburn St., ‘Ke- 
lowna, British Columbia V1Y 4G6 
Canada 





will copy the file /MYDISK/HELLO 
to the file /RAM/STARTUP. If the 
destination file name already exists 
on the destination volume, the com- 
mand exits with the DUPLICATE FI- 
LENAME error. This prevents acci- 
dental erasure of files. If you want to 
copy a file over an already existing 
file, use the DELETE command to de- 
stroy the existing file and then use the 
COPY command. 

COPY cannot be used to copy files 
directly from one disk to another if 
you have only one disk drive. Howev- 
er, if you have a ProDOS RAM disk 
available to you (that is, you are using 
an Apple IIc or a Ile with an extended 
80-column card) you have the capa- 
bility to copy the file into the RAM 
disk and then copy the file again from 
the RAM disk over to the destination 
disk. 
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Entering the Program 

The source code for COPY is shown in 
Listing One (page 58). To type in the 
program, you can either use an assem- 
bler or type the hexadecimal numbers 
in from the monitor. When you are 
finished, save the program with 


BSAVE COPY,A$6000,L$2B6 


How it Works 

The COPY code is divided logically 
into three parts: installation, first- 
stage processing, and second-stage 
processing. I will describe the opera- 
tion of each in turn. 


Installation 
When COPY is invoked, it relocates 
itself to reside between the ProDOS 
BASIC.SYSTEM and its file buffers. 
A call to GETBUFR with the accu- 
mulator containing the value $02 
(Listing One, lines 69 and 70) re- 
serves the required two pages of 
memory. The high byte of the start- 
ing address of the reserved space is 
returned in the accumulator. Line 71 
checks to see if the call to GETBUFR 
was successful. In ProDOS Version 
1.0.1 there is a bug in GETBUFR that 
causes it to return a successful error 
code whether or not an error occurs. 
Due to this bug, COPY will only work 
with ProDOS Version 1.1.1 and later. 
If you have an earlier version of Pro- 
DOS, see your dealer to get an up- 
date. If GETBUFR is unsuccessful, 
the program exits with an appropri- 
ate error message (line 72). 
Assuming the GETBUFR call was 
successful, program control is trans- 
ferred to GOTSPACE (lines 73-83), 
which protects the acquired memory 
space via the system bit map and up- 
dates RSHIMEM. The routine BIT- 
MAPS (lines 135-157) is called 
twice—once to protect each page. 
Then the value of RSHIMEM in the 
BASIC.SYSTEM’s global page is de- 
creased by 2 (lines 80-83). This pro- 
tects the acquired memory from a 
call to FREBUFR. FREBUFR resets 
HIMEM to the value contained in 
RSHIMEM. Because COPY dynami- 
cally allocates buffer space during 


execution via GETBUFR and FRE- | 
BUER, it is necessary to perform this | 
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How to go 
om. 
UNIX to DOS 
without. 
compromising 


your 
standards. 


It’s easy. Just get an industry standard file access 
method that works on both. 

C-ISAM™ from RDS. 

It’s been the UNIX™ standard for years (used in 
more UNIX languages and programs than any other 
access method), and it’s fast becoming the standard 
for DOS. Why? 

Because of the way it works. Its B+ Tree index- 
ing structure offers unlimited indexes. There's also 
automatic or manual record locking and optional 
transaction audit trails. Plus index compression to 
save disk space and cut access times. 

How can we be so sure C-ISAM works so well? 

We use it ourselves. It’s a part of INFORMIX; 
INFORMIX-SQL and File-it!" our best selling data- 
base management programs. 

For an information packet, call (415)322-4100. 
Or write RDS, 4100 Bohannon Drive, Menlo Park, 
CA 94025. 

You'll see why anything less than C-ISAM is just 
a compromise. 


“oN 


a 


RELATIONAL DATABASE SYSTEMS, INC. 


© 1985. Relational Database Systems, Inc. UNIX is a trademark of AT&T. INFORMIX is a registered 
trademark and RDS, C-ISAM and File-It! are trademarks of Relational Database Systems, lnc. 
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step. If you wish to have any other 
added ProDOS commands resident in 
memory during the execution of 
COPY, they must each be protected 
from FREBUFR by this method. 

The next program segment (lines 
87-95) hooks the COPY command 
into BASIC.SYSTEM’s external com- 
mand link. Any previously installed 
external commands are daisy chained 
by the method described in the Pro- 
DOS Technical Reference Manual. 
Lines (99-115) update all internal, 
nonrelocatable references so that the 
program will execute properly in its 
final location. They make use of the 
table of nonrelocatable references in 
lines 161-188. 

After all the references are adjust- 


ed, the code is moved to its final loca- 
tion by the monitor MOVE routine 
(lines 119-131). This finishes the in- 
stallation of COPY, and control is 
passed back to the system. 


First-Stage Processing 

When ProDOS runs across a com- 
mand that it does not recognize, it 
passes control to EXTRNCMD in the 
BASIC.SYSTEM global page. With 
COPY installed, this location con- 
tains a jump to the relocated copy 
code (starting at line 203). Here the 
path-name buffer is checked to see if 
it contains the COPY command in up- 
per or lower case. If not, the carry 
flag is set to indicate no match, and 
control passes to the next user-in- 





Oh, Rapture! 


This is truly the editor | have been longing for. 


- Dr. Joseph Newcomer 


etch i i a ce Se tn a As 
New Epsilon 3.0: fast, fully programmable text editor with 
an EMACS-style command set and concurrent processes! 





Presenting Epsilon 3.0, the fastest, most powerful text editor available for personal 
computers. Epsilon has a built-in programming language, called EEL, for creating 
your own commands. Plus you get EEL source code for all of Epsilon’s commands! 


EEL has all the expressive power of the C programming language. It supports all 
C statements and expressions, pointers and user-defined structures. Unparallelled 
flexibility! 


Because EEL looks like C, commands are easy to write. You don’t have to learn 
a new language. Epsilon detects illegal pointer references, and has a source line 
single-stepping debugger and EEL profiler, too. 


Our amazing Concurrent Process facility lets you run other programs while you 
continue to edit your files. The program’s input and output are connected to a 
window, so you can edit them. Great for background compiles, debugging while 
looking at source code, and lots more! 


Plus the advanced features programmers need: 


- Concurrent Processes 

- Multiple Windows 

- Unlimited File Size 

- Customizable Keyboard 

- Tutorial 

- Automatic Swap File 

- Supports Large Displays 

- Saves Deleted Text (n times) 


- Context Sensitive Help 

- Regular Expression Search 

- Unlimited Number of Files 

- File Name Completion 

- Convenient Keyboard Macros 

- Directory Perusal 

- Language Support (C, Lisp, etc.) 
- Uses All Available Memory 


Epsilon runs on IBM PC’s, XT’s, AT’s and compatibles with PC-DOS 2.0 or above 
and requires 256K of memory. 


Epsilon is available directly from Lugaru Software Ltd, and costs only $195.00. 
Order now using your Visa, MasterCard, or American Express card. Company 
purchase orders are also welcome. Order it today, so you can enjoy it soon! 


Lugaru Software Ltd. 

5740 Darlington Road 

Pittsburgh, PA 15217 
(412) 421-5911 
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stalled external command (lines 214- 
215 and 193). If there are no more 
user-installed commands, line 193 
will contain a jump to an RTS in- 
struction. Assuming the COPY com- 
mand was found, execution continues 
at line 218, where the command- 
string length is decremented and 
stored in XLEN. Lines 220 and 221 
store a 0 in XCNUM to indicate to 
BASIC.SYSTEM that the command is 
external, and lines 222—225 store the 
address where second-stage process- 
ing is to be resumed after the input 
string has been parsed by BASIC- 
SYSTEM. Next, PBITS. and 
PBITS~+ | are set to indicate that file 
creation is allowed, that the com- 
mand requires two path names, and 
that the current prefix should be 
fetched if none is specified in the 
command string. Finally, the pro- 
gram exits with the carry flag cleared 
to tell BASIC.SYSTEM that the com- 
mand has been identified. 


Second-Stage Processing 

After BASIC.SYSTEM has parsed the 
command string, control is passed to 
line 236. At this point, FBITS and 
FBITS+1 have been set by BASIC 
.SYSTEM to indicate which parame- 
ters were present in the command 
string. Lines 236-243 check that two 
path names were given and exit with 
a syntax error if not. 

Assuming both path names were 
present, execution continues at 
PARMSOK (line 247), where a GET 
—FILE_INFO call is made to the MLI 
(machine-language interface) 
through the GOSYSTEM vector. This 
call gets the file information for the 
source file (the first path name speci- 
fied in the command string). The file 
type is checked to make sure it is not 
a directory or bad block file. (Copy- 
ing these file types would be mean- 
ingless.) If the file is either of these 
two types, the program exits with a 
FILE TYPE MISMATCH error. 

Next, a new file is created with the 
file name specified by the second 
path name in the command line (lines 
262-277). If an error occurs during 
the CREATE attempt, control passes 
to BADCALL (line 277), where the 
MLI error is translated to a BASIC 


‘SYSTEM error, the carry flag is set, 
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and an RTS instruction transfers con- 
trol back to BASIC.SYSTEM. If the 
CREATE is successful, lines 281-289 
attempt to obtain a 1K file buffer 
from the system for use by the desti- 
nation file. If the attempt is unsuc- 
cessful, the NO BUFFERS AVAIL- 
ABLE error is generated (lines 
284-286). 

Finally, the rest of free memory 
(excluding any resident BASIC pro- 
grams and any variables that may 
have values assigned to them) is re- 
served for the file-transfer buffer 
(lines 294-316). It is desirable to 
have as large a buffer as possible in 
order to speed up the copy. If a very 
large BASIC program is in memory at 
the time the COPY command is exe- 
cuted, the file will be copied in sever- 
al passes because only a small 
amount of it can be read into memory 
at one time. If there is no BASIC pro- 
gram in memory, even very large files 
can be copied in one or two passes. If 
there is less than one free page of 
memory, all of the buffer space ob- 
tained so far is returned to the sys- 


tem, and the program exits with the 
NO BUFFERS AVAILABLE error 
(lines 302-305). 

Now that all the buffers are set up, 
lines 320-331 open the destination 
file, and lines 335-337 open the 
source file. Any errors detected dur- 
ing this process cause the buffer 
space to be returned to the system 
and an appropriate error message to 
be generated. Lines 346-351 call 
NEWLINE to indicate that no NEW- 
LINE character is to be recognized. 
The NEWLINE character is used by 
ProDOS when reading a file to signify 
the end of a line or record. For exam- 
ple, when reading lines from a text 
file, the NEWLINE character should 
be set to $8D (carriage return). This 
allows processing of the file line by 
line. Because it is desirable to read in 
as much of the file as possible during 
each pass, the NEWLINE character is 
disabled by setting the mask byte to 0 
(lines 346 and 347). 

Lines 361-378 perform the actual 
transfer. Lines 363 and 364 call the 
MLI READ routine to read in as much 


of the file as possible. An error during 
the read causes program control to 
pass to line 366, where the end-of-file 
condition is checked. If the end of file 
has been reached, lines 382—401 close 
both files, free the allocated buffer 
space, and return control to the sys- 
tem. Otherwise, lines 369-375 write 
the buffer contents out to the new file 
and then (assuming no errors were de- 
tected during the WRITE) go back for 
more (line 376). Lines 402-432 are 
the parameter lists used during the 
calls to the MLI. 


improvements and Modifications 
The most obvious improvement is to 
allow the use of disk-to-disk copies 
with a single disk drive. You might 
also find it useful to allow COPYing a 
text file to the screen or a printer. 
Then you would have a general-pur- 
pose copy utility, such as CP/M’s PIP 


command. DD} 


(Listing begins on next page) 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 194. 





NEON: TURN ON THE FULL POWER OF YOUR MACINTOSH. 


Hidden within your Mac is the programming power, flexibility, 





and speed to match your imagination. Neon is your key to this 
object-oriented world. Based on the same design philosophy as 
the Mac itself, Neon lets you create and command objects — 
program modules that you build, perfect, and add to your 
personal collection of tools. In this Smalltalk-like environment, 
you wield the power to quickly assemble and test ideas, tuning 
as you go for maximum speed and efficiency. () Neon works in 
128K or dynamically expands for the fattest Mac possible. It is 
easy to work with from the very beginning. Additional help 
is provided through the comprehensive manual by Danny 

Goodman. (] Created by Kriya Systems, Inc. for the develop- 
ment of our Typing Tutor III™ program, Neon is your answer for 
professional software development. With Neon, there are no 
licensing fees. Ever. For the MacIntosh developer, Neon is the 


best choice. 





To order your copy of Neon, call 1-800-34KRIYA now with Visa or MasterCard, or send your check to Kriya 
Systems, Inc., Six.Export Drive, Sterling, VA 22170. The price is $155, including shipping and handling. 


Neon and Typing Tutor III are trademarks of Kriya Systems, Inc. Apple Macintosh is a trademark of Apple Computers, Inc. 
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TURBO 
GRAPHICS™ 


for use with 


Borlands Turbo Pascal™ 











A comprehensive set of Pascal 
procedures and binary routines 
that includes most of the 
graphics capabilities found in 
BASICA in addition to several 
new graphics routines. 





MAJOR FEATURES 


(on medium resolution 
graphics screen) 


@ Draw large letters, circles, 
and lines in color. 


@ Create complicated graph- 
ics using DRAW “macros”. 


M@ Create and use WINDOWS 
non-destructively. 


M@ Paint enclosed areas. Get 
and Put screen memory. 


@ Scroll any portion of the 
screen up or down. 


= Use the font editor to create 
letters and graphics 
characters. 


M@ Combine features to create 
interesting animations. 





Catalog Numbers: 
UTIL-100-IBM PC $39.95 


UTIL-100-IBM PCjr each 
Shipping and Handling: 
$5.00 each 
| |) MN 
= H = 





Diversified Educational Enterprises, Inc. 
725 MAIN STREET 
LAFAYETTE, IN 4790] 


317-742-2690 
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ProDos C Opy Lis ting (Text begins on page 54) 


600C:AE 
600F: 20 
6012:18 
6013:69 
6015:CA 
6016:D0 
6018:AD 
601B:38 
601C:ED 
601F:8D 
6022: 

6022: 

6022: 

6022:AE 
6025:AC 
6028:8E 
602: 8C 
602E:A9 
6030:8D 
6033:68 
6034:48 
6035:8D 
6038: 

6038: 

6038: 

6038:38 
6039:E9 
603B8:85 
603D:A2 
603F:A0 
6041:18 


Ol 


F7 


03 
FB 


07 
08 
O01 
02 


07 


08 


61 
BE 
600B 


61 
60 


600F 


BE 
BE 
ol 
61 


een &Wh 


*e & * & * Hh He HH HH Ww HF 


LST 


GEN, VSYM 


Akhkhhhkekaekhkhahhkkkee archer hhreeehikhheeeurmkkerark 


COPY Command for ProDOS BASIC.SYSTEM 
by Shawn Day 

Syntax: COPY pathnamel, pathname2 
This command copies the file specified by 
pathnamel, to the file specified by patiname2. 
If pathname2 does not exist, it is created. 


If pathname2 does exist, the comoari exits 
with a DUPLICATE FILENAME error. 


Apple ProDOS Assembler version 1.0 


*ueuenenenente te 4H eH HH H FR 


kkk kahkk ee ekkeeeeeKRKKKKKKKKKKEKRKKKKKKAKKRHKRKKKA KK KKK 


AlL 
Alli 
A2L 
A2ii 
A4L 
A4H 
HIMEM 
TEMP 
OFFSET 
PTR 
COUNT 
INBUF 
EXTIRINCMD 
ERROUT 
XT'RNADDR 
ad 
XCNUM 
PBITS 
FBITS 
VPATiIL 
VPATH2 
GOSYSTEM 
BADCALL 
SSGINFO 
FIACESS 
FIFILID 
FIAUXID 
OSYSBUF 
OREFNUM 
NEVILREF 
NLINENBL 
RWREFWUM 
RWDATA 
}WYCOUNT 
RWIRANS 
CFREL'NUM 
GETBUFR 
FREBUFR 
RSHIMEM 
MLI 
BITMAP 
MOVE 


EQU 
BQU 
QU 
QU 
QU 
BQU 
EQU 
EQU 
EQU 
EQU 
QU 
BQU 
EQU 
EQU 
EQU 


SE SRCE CEC SUSEREEE 


BQU 


eeegees 


QU 
EQU 


NAME IS COPY 


ORG 


Kee ee 


* 


x 
x 
x 


GOTSPACE 


PROTECT 


* 


»* 


™ Installation 


8 em mr ee ee 


$3C 
$3D 
$3E 
S3F 
$42 
$43 
$73 
SFC 
SFD 
SFE 
SFE 
$200 
SLEO6 
SBRO9 
SBESO 
$BEr52 
$BE53 
SBE54 
SBES56 
SBE6C 
SBE6E 
SBE70 
SLE8B 
SBEB4 
$BLEB87 
SBEL8 
SBEB9 
SBECE 
$I13EDO 
SBED2 
$BED3 
SBED6 
SBED7 
SBED9 
SBEDB 
SBEDE 
SbEFS 
SBEF8 
SBEFB 
SBFOO 
SBF58 
SFE2C 


$6000 


;Start address for MOVE 
;End address for MOVE 
;Destination for MOVE 


7HIHEM pointer 

;Temporary storage 

;Offset for relocation code 
Temporary address pointer 
;Temporary storage 

Keyboard input buffer 

7External cini jmp vector 

Print error inessage 

7External cmi address 

sLenjth of cmd string-1 

7cimd no. (extrn. cmi = 0) 
;Comnand parameter bits 
;Command parameter bits found 
;Pathname 1 buffer pointer 
;Pathname 2 buffer 

;Perforin MLI call 

;Translate MLI error to BI error 
#GeT PILE INFO MLI buffer 
;Access used by lock/unlock 
#Pile id of disk file 

;Aux id 

;Buffer for MLI OPEN 

;Reference number of opened file 
;NEWLINE file reference number 
NEWLINE enable mask and char 
;Read file reference number 
7Read buffer 

*Read (Nunber of char requested) 
#Read (Nunber of char transferred) 
*Close file reference number 
;Get buffer fron system 

Give buffer back to system 
7HIMEM reset value for FREEBUFR 
;MLI entry point 

System bit imap table 

#Monitor MOVE routine 


e+ 


Get some space for the COPY code 
and protect it by updating the system bit map 


JSR 


PAGES 
GETBUFR 
GOTSPACE 
ERROUT 


PAGES 
BITMAPS 


#$01 


PROTECT 
RSHIMEM 


PAGES 
RSHIMEM 


;Number of pages needed 
Ask the BI for some space 
;We got the space 

#Couldn't find space 

;Save start address 
#Nuinber of pages to protect 
;Protect a paye 


Point to next page 

7Are we done? 

7If not 

;Protect code from FREEBUFR 


Hook routine into the ProDOS external comand vector 


LDX 
LDY 
STX 
STY 
LDA 
STA 
PLA 
PHA 
STA 


EXTRNCMD+1 
EXTRNCMD+ 2 


LINK+l 
LINK+2 
#>STARI' 


EXTRNCMD¢+ 1 


EXTRNCMHD+2 


7Set link to next external command 
70r RTS (whichever was already there) 


;Install the address of the 
sCOPY Comnand hamiler in the 
external command jump vector 
;Save start address for MOVE 


Update all non-relocatable references in the COPY code 


#<LINK 
OFFSET 
#$00 
#$00 


Find offset to be added to all 
7non-relocatable references 


; Index start of table 


(Continued on page 60) 
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POWER 


FUNCTION LIBRARY 
C WINDOWS 
SUPERFONTS FOR C 
B-TREE LIBRARY 
ISAM DRIVER 
C-TERP INTERPRETER 


LIBRARY: 325 fully tested functions 
screen handling/graphic, cursor/ 
keyboard/data entry, string handling, 
status and control, utility/ DOS/BIOS/ 
time/date, printer control. 

More & Better Functions! 

4 disks, 400 page manual $129.95 


WINDOWS: The most powerful 
windowing package available, 
overlays, borders, pop-up menus/ 
help windows, zap instantly on/off 
screen, status lines, horizontal/ 
vertical scrolling, color control/ 
highlighting, word-wrap, files to 
windows, keyboard to windows 

3 disks, 225 pagemanual $129.95 


SUPERFONTS FOR C: Dramatic, 
high impact screens. Use our 
character & image libraries and 
functions, or create your own. 

Font & Function Library $49.95 


B-TREE LIBRARY: Fast index- 

ing B-tree. 16 million each: keys and 
records, unlimited keys per file, 
variable length records, configurable 
key sizes. PC-DOS, UNIX, XENIX, 
CP/M. $79.95 


ISAM DRIVER: $49.95 


COMPATIBILITY: PC/XT/AT & 
compatibles; Full K&R, Cl-C86/De 
Smet/ Lattice/Microsoft 3.0/Aztec/ 
others. BEST YOU CAN GET! 


VALUE: A/l source code, No 
royalties, on packages above. 


C-TERP: Simply the best C 
interpreter available. See C Journal 
Summer 1985 

G . TE RP (specify compiler) $299. 95 


COMBINE AND SAVE! 
C LIBRARY plus C WINDOWS 
BOTH ION-ODY -. 5. 465 $179.95 
+SUPERFONTS FORC . $199.95 


+B-TREE andISAM .... $299.95 
(A $440 VALUE) 


C LIBRARY plus C WINDOWS 

+ SUPERFONTS 

+ C-TERP (aseiovaiue) ... . $459.95 
All (as740vaiue).........., $549.95 


Entelekon 


12118 Kimberley, Houston, TX 77024 
713-468-4412 
VISA-MASTECARD-CHECK 
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ProDos Copy Listing 


(Listing continued, text begins on page 54) 


6042:BD 91 60 105 RELOCATE LDA  RELTABLE,X ;Point to non-relocatable reference 
6045:35 FE 106 STA PIR : 
6047:BD 92 60 107 LDA - RELTABLE+1,X 

604A:85 FF 108 STA PTR+1 

604C:Bl FE 109 LDA (PPR) ,Y ;Add offset to the reference 
604E:65 FD 110 ADC OFFSET - 

6050:91 FE £1 STA (PTR) ,Y 

6052:E8 142 INX 7Index next reference 
6053:E8 113 INX 

6054:LC C7 60 114 CPX TABLESIZE ;Number of references times 2 
6057:90 LY 6042 115 BCC RELOCATE 

6059: 116 * 

6059: 117 °* Move the code to its final hone 

6059: 118-* 

6059:A2 00 119 LDX = #> LINK ;Start 

605B:A0 61 120 LbY #<LINK 

605D:86 3C tal STX ALL 

605F:84 3D 122 STY Alil 

6061:A2 AB 123 LDXx #>END 7End 

6063:A0 62 124 LDY = #<END 

6065:86 3E 125 STX A2L 

6067:384 3F 126 STY¥Y*; A2H 

6069:A0 00 127 LbYy #$00 ;Destination (Always on a page boundary) 
606B:84 42 128 STY A4L 

606D: 638 129 PLA ;We saved the high byte on the stack 
606E:85 43 130 STA A4H 

6070:4C 2C FE 13Y: JMP MOVE 7 Y¥-reg=300 

6073: 132 * 

6073: 133 * Subroutine to update system bit map 

6073: 134 * 

6073:A8 135 BITMAPS TAY 7Save page address 

6074:48 136 PHA 

6075:8A 137 TXA ;Save X-reg 

6076:48 138 PHA 

6077:98 139 TYA ;Restore page address 
6073:4A 140 LSR A ;Divide page address by 8 
6079:4A 141 LSR A 

607A:4A 142 LSR OA 

607B:AA 143 TAX ;Load X-reg with page address/8 
607C: 98 144 TYA ;Restore page address 
607D:29 07 145 AND  #S07 #Kill off the high order bits 
607F:A3 146 TAY sand put it in the Y-reg 
6080:A9 00 147 LDA #$00 ;Zero the mask 

6082:38 148 SEC ;Prepare to put a 1 into mask 
6083:6A 149 BITMAPS1 ROR _A ;Rotate carry into mask 
6084:83 150 DEY 

6085:10 FC 6083 151 BPL  BITMAPS1 ;Rotate mask to. proper position 
6087:1D 58 BF 152 ORA  BITMAP,X ;Update the actual bitmap 
608A:9D 58 BF 153 STA BITMAP, X 

608D: 68 154 PLA ;Restore X-reg and A-reg 
608E:AA 155 TAX 

608F:68 156 PLA 

6090:60 157 RTS 

6091: 158 * 

6091: 159 * Table of non-relocatable references 

6091; 160 * 

6091:1F 61 161 RELTABLE DW RELOC1+2 

6093:24 61 162 Dw RELOC2+2 

6095:2C 61 163 Dw NXTCHR2+2 

6097:3E 61 164 Dw RELOC3+1 

6099:78 61 165 Dw FILEOK+2 

609B:7E 61 166 DW RELOC4+2 

609D:84 61 1lo7 Dw RELOC5 +2 

609F:89 61 168 DW hUSLOC6 +2 

60A1:8F 61 169 DW RELOC7+2 

60A3:95 61 170 DW RELOCS8 + 2 

60A5:98 61 171 Di RELOCI+1 

60A7:AE 61 172 Dw RELOC10+2 

60A9:B3 61 173 DW RELOC11+2 

60AB:D6 61 174 Dw RELOC12+2 

60AD:DF 61 175 Dy RELOC13+2 

60AF:E7 61 176 DW RELOC14+2 

60B1:ED 61 177 Di RELOC15+2 

60B3:F3 61 178 DW RELOC16+2 

60B5:F9 61 179 Dw IueLOC17+1 

60B7:3B 62 180 DW TRANSFER+ 2 

60B9:3E 62 181 DW RELOC18+2 

60BB:51 62 132 DW RELOC19+2 

60BD:57 62 183 DW RELOC20+2 

60BF:5D 62 184 DW RELOC21+1 

60C1:74 62 185 Dw RELOC22+2 

60C3:77 62 186 DW RELOC23+2 

60C5:7D 62 187 DW RELOC24+1 

60C7:36 188 TABLESIZE DFB TABLESIZE-RELTABLE 

60C8: 0038 189 FILLPAGE Ds >0-F ILLPAGE Fill to next page boundary 
6100: 190 #a----~-—- = 

6100: 191 * The following is the COPY command code. 

6100: 192 8$ore nnn nnn nnn nnn + =e 

6100:4C OU 00 193 LINK JMP $9000 ;Address planted to next command 
6103:02 194 PAGES DPB = <END-LINK+256 ;Number of pages occupied 
6104:04 43 4F 50 195 CMDSTRU STR "Copy" ?Tnis is the command string 
6108:59 

6109:04 63 6F 70 196 CHDSTRL STR “copy” ;Accept upper or lower case 
610D:79 

610E: 197 #eme men nnn nnn nn 

610E: 198 * Check to see if the command is Copy. If not, 

610E: 199 * then check for next user command, or tel] ProDOS 

610E: 200 * it is not a user command. If it is the Copy 

610L: 201 * coimnand, then set up for.first Stage processing. 

610E: 202 Bem 

610E:AD 6C BE 203 START LDA C~VPATHI1 #Get command line pointer 
6111:85 FE 204 STA PTR 

6113:AD 6D BE 205 LDA VPATH1+1 

6116:85 FF 206 STA PTR+1 


(Continued on page 62) 
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Powerful symbolic 
debugger included 


Display and alter variables. Show 
source as program runs, or on 
request. Break on variables or 

procedure calls. Show calling nest. 
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NEW STARS 


EARTH COMPUTERS launches two of the 
“Hottest” new stars in the S-100 Universe. 
Both the TURBOMASTER 8” and 
TURBOSLAVE I™ are Star performers, featur- 
ing high speed Z-80H CPUs. 


EARTH’s new stars are fully compatible 
with the Multi-user TurboDOS operating 
system, and will operate in most S-100 
systems, including pre-IEEE 696 systems. 


SYS TURBOMASTER 8 


N This outstanding new 8-Bit Single 
| Board Computer offers features that 
are out of this world: 
¢ On-board ST-506 Winchester Controller 
e TurboDOS, CP/M, MP/M compatible 
¢ 5-%”" and 8” Floppy Controller 
e Up to 256KB of memorye 2 Serial ports 
¢ 8 MHz, Z-80H CPU e 1 Parallel port 


jy. TURBOSLAVE | 


a ¥, 
he 














The perfect companion to the 
TURBOMASTER 8 or other 
8/16-Bit Master processor. This 
high speed slave utilizes an 

8 MHz Z-80H CPU and offers 
extensive on-board diagnostics... 
an industry exclusive. 

e No paddle boards 

e S-100, IEEE 696 compatible 

¢ 128KB of RAM 

e 2 RS-232 ports, 50-38.4K Baud 

e FIFO communications 

EARTH COMPUTERS also manufac- 
turers a growing line of PC com- 
patible stellar performers such as: 


¢ TURBOSLAVE PC™—an 8 MHz 











Z-80 single board slave processor 
that runs CP/M applications on 
a PC and is compatible with the 
TurboDOS multi-user operating 
system. 

¢ TURBOACCEL 286™—a high 
performance 80286 accelerator 
that boosts PC performance up 
to five times. 

e EARTHNET PC™ and EARTHNET 
S-100, the low cost, ARCNET- 
compatible way to tie PC and 
S-100 systems together. 


To put these stars to work for you, 
call or write EARTH COMPUTERS. 
BE SURE TO ASK ABOUT HOW 
YOU CAN WIN A FREE Z-80 
CO-PROCESSOR BOARD. 


— 
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Ve 
“Building Blocks For The Super Micro” 
P.O. Box 8067, Fountain Valley, CA 92728 
TELEX: 910 997 6120 EARTH FV 
PHONE: (714) 964-5784 
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LAUNCHES 





ProDos Copy Listing 


(Listing continued, text begins on page 54) 











6118:A0 00 207 LOY =#$00 ; Index command string 

611A:C8 208 NXTCHR INY zIncrement imiex 

611B:Bl FE 209 LDA (PTR) ,Y Get character fro input string 
611D:b9 04 61 210 RELOCL CMP CMDSTRU,Y ;Does it match upper case? 
6120:FO 08 612A 211 BEQ-sNXTCHR2 ;If yes 

6122:D9 09 61 212 RELOC2 CMP CMDSTRL,Y ;Does it match lower case? 
6125:FO 03 612A 213 BEQ = NXTCHR2 ;I£ yes 

6127:38 214 SEC 7Flag match failure 

6128:L0 D6 6100 215 BCS = LINK 7Go to next coimwnund in the chain 
612A:CC 04 61 216 NXTCHR2 CPY CMDSTRU #Checked all characters? 
612D:D0 EB 611A 217 LNE NXTCHR #No, so check the next one 
612f:88 218 DEY #Put comnand length-1 in XLEN 
6130:8C 52 BE 219 STY  XLEN 

6133:A9 00 220 LDA #$00 ;Mark command as external 
6135:8D 53 BE 221 STA  XCNUM 

6138:A9 4E 222 LDA #>SECOND #Point to comand handler 
‘613A:8D 50 BE 223 STA XTRNADOR 

613D:A9 61 224 RELOC3 LDA #< SECOND 

613F:8D 51 BE 225 STA XTRNADDR+ 1 

6142:A9 OB 226 LDA #S$0B ;Allow CREATE, require two pathnames 
6144:8D 54 BE 227 STA PBITS 

6147:A9 04 228 LDA #$04 #Fetch prefix, if required 
6149:8D 55 BE 229 STA PBITS+1 

614C:18 230 Ce #NO errors so far 

614D:60 231 RTS ;Return to BASIC.SYSTEM 
614E: 232 Bemmw nnn nnn ne 

614E: 233 * COPY second stage processing. First check FBITS 

614E: 234 * to see if the proper parameters were present. 

614E: 235 *#------- === === = ——— enemas a 

614£:AD 56 BE 236 SECOND LDA sFBITS ;Paraineters found 

6151:4A 237 LSR A Filename found? 

6152:90 03 6157 238 BCC  SYNERROR ;NO, SO give error message 
6154:4A 239 ISR: ‘A 7Second filename found? 
6155:B0 04 6158 240 BCS  PARMSOK 7Yes, SO go do consand 
6157:A9 10 241 SYNERROR LDA #$10 ;Syntax error 

6159:38 242 MLIERR SEC ;Set carry to show error 
615A:60 243 RETURN RTS 7Return to system 

615B: 244 * 

615B: 245 * Both filenames were given, so execute COPY 

615B: 246 * 

615B:A9 OA 247 PARMSOK LDA #SOA #Set up GET FILE INFO call 
615D:8D B4 BE 248 STA SSGINFO 

6160:A9 C4 249 LDA #SC4 #MLI GET FILE INFO code 
6162:20 70 BE 250 JSR  GOSYSTEM #Perform the MLI call 
6165:B0 F3 615A 251 BCS RETURN ;If error, return carry set 
6167:AD B8 BE 252 LDA FIFILID 7Get file type 

616A:C9 OF 253 CMP #SOF ;Can't copy a directory file 
616C:FO 04 6172 254 BEQ MISMATCH 
616E:C9 01 255 CMP #S01 ;Can't copy a bad block file 
6170:D0 04 6176 256 BNE  FILEOK 

6172:A9 OD 257 MISMATCH LDA #13 ;FILE TYPE MISMATCH error 
6174:D0 E33 6159 258 BNE MLIERR ;Always 

6176: 259 * 

6176: 260 * File type is OK 

6176: 261 * 

6176:8D 93 62 262 FILEOK STA CRFILID ;Pile type for CREATE 
6179:AD B9 BE 263 LDA FIAUXID #File aux type for CREATE 
617C:8D 94 62 264 RELOC4 STA  CRAUXID 

617F:AD BA BE 265 LDA FIAUXID+1 

6182:8D 95 62 266 RELOCS STA CRAUXID+1 

6185:A9 C3 267 LDA #$C3 Pile access (UNLOCKED) 
6187:8D 92 62 268 RELOC6 STA CRACCESS #We have to be able to write! 
618A:AD 6E BE 269 LDA -VPATI2 ;Pathname for CREATE 

618D:8D 90 62 270 RELOC7 STA  CRPATH 

6190:AD 6F BE 271 LDA VPATH2+1 

6193:8D 91 62 272 RELOC8 STA CRPATH+1 

6196:20 00 BF 273 CREATE JSR MLI ;Create the new file 

6199:CO0 274 DFB $co *MLI CREATE comnand code 
619A:8F 62 275 RELOCI DW CRPARMS ;CREATE parameter list 
619C:90 03 61Al 276 BCC SUCCESS ;CREATE successful 

619E:4C 8B BE 277 JMP  BADCALL iTranslate to BI error code and exit 
61Al: 278 * 

61Al: 279 * Create a file buffer for the destination file 
61Al: 280 * 

61A1:A9 04 281 SUCCESS LDA #504 71K buffer required 

61A3:20 FS BE 282 JSR GETBUFR ;Get space 

61A6:90 04 61AC 283 BCC RELOC1LO 

61A8:A9 OC 284 LDA #S0C *NO BUFFERS AVAILABLE error 
61AA: 38 285 SEC 

61AB:60 286 RTS 

61AC:SD 9F 62 287 RELOC1O STA  OPEN2BUF+1 

61AF:A9 00 288 IDA #$00 #Buffer always on page boundary 
61B1:8D 9E 62 289 RELOC11 STA  OPEN2BUF 

61B4: 290 * 

61B4: 291 * Create a transfer buffer for the file 

6184: 292 * Use as much free memory.as possible 

61B4: 293 * 

61B4:A9 FF 234 TRANSBUF LDA #SFP #Count how many pages we can get 
61B6:85 FE 295 STA COUNT zInitialize with -1 

61B8:E6 FE 296 GETMORE INC COUNT ;Count how inany pages 
61BA:A9 01 297 IDA #S01 ;Get one page at a time 
61BC:20 FS BE 298 JSR  GETBUPR 7Get space 

61BF:90 F7 61B8 299 BCC =GETMORE #Keep going until we can't get more 
61C1L:A5 FE 300 LDA COUNT #Check how many pages we got 
61C3:D0 07 61cC 301 BNE GOT'ENOUGH Any non-zero number is okay 
61C5:20 F8 BE 302 JSR FREBUFR #Give back the allocated memory 
61C8:A9 OC 303 LDA #$0C #NO BUFFERS AVAILABLE error 
61CA: 38 304 SEC 

61CB:60 305 RTS 

61CC:8D DA LE 306 GOTENOUGH STA  RWCOUNT+1 ;Save buffer size 

61CF:A9 00 307 LDA #S00 #Length is always an even number of page 
61D1:8D D9 BE 308 STA R¥COUNT 

61D4:AD 9F 62 309 RELOC12 LDA  OPEN2BUFt1 #Get start address of buffer 
61D7:38 310 SEC 


(Continued on page 66) 
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gw \ TURBO NEW 1 
INTEGRATED DEVELOPMENT SYSTEM ~“ 


These systems were developed from the ground up to work in an integrated fashion ... This saves you time and 








money from trying to assemble different packages and to code in our Products Unique Features. 


TURBO ISAM MASTER 


GENERATES ‘Ready to Run’ Turbo Programs Using 
BORLAND’S Turbo Pascals Database TOOLBOX. 


With a few key strokes you can generate the following Pascal pro- 
, saree are flies. Automatically interfaces to Turbo Screen 
aster. 

A. MASTER DATABASE PROGRAM - Generates Pascal Program 
Code for the following functions. 

4. Add a Record eAllows both duplicate & unique only keys. @ 
Change the up to 6 fields comprising the primary key and the up 

to 3 secondary keys at any time during input, and the validity of 
the keys are checked and the ISAM key files are automatically 
adjusted. 

2. Delete a Record - Shows the record to be deleted on the screen 
and allows you to change your mind about deleting, and then ad- 

justs the keys files automatically for the up to 4 keys. The disk 
space is reused automatically by the programs. 

3. Edit a Record - with a key change allowed. 

4. Search Database by Key - Up to 4 keys-and has a 1 key lookup 
to find next key in alphabetic order. 

5. For Each Key - The ability to display the keys on the screen or 
printer in sorted order. 

B. DATA BASE RECOVERY PROGRAM. This program recovers 

your data base if itis corrupted by a power outage or certain hard- 
ware failures. 

C. MULTIPLE ISAM FILES - -Can be used at the same time in a 
single program. The generator also produces context sensitive in- 
structions on how to integrate the generated program into your 
main program. 

D. DOCUMENTATION - Print screens and ISAM specifications. 
Also inline program documentation is generated. 


TURBO MENU MASTER 


GENERATES ‘Ready to Run’ Turbo Programs 
with Dedicated Screens or Windows. 


Features: Has Menu Data Base so Its easy to modify menues. 
Provides Selection by - (1) Press of a number-if you have more 
than 9 selections then you enter only a single number if the selec- 
tion is 2-9. (2) Press of a function key - if more than 10 selec 
tions then can enter use shift function key to get up to 18 selec- 
tions. (3) Press the High Lighted Letter -in the selection descrip- 
tion, you choose a letter for each menu selection in the interactive 
menu generator. (4) Use the arrow keys - to point to a menu item & 
then press return. 

Adaptive Screen Colors -Different screen colors are automatically 
used for color or monochrome display. This allows you to provide 
a better interface for the user. 

interactive Menu Bullder - (1) Allows for the automatic entry & 
reorder of selections. (2) Offers easy color selection. (3) Allows for 
choice of procedure, chain, execute or comment code generation 
for each selection. (4) Has startup Menu that YOU design. (5) Pro- 
vides for the integrated Display & Control of the Key Lock Status. 


RISK FREE TRIAL 


Try the demo package included for 30 days. If not pleased 
retum for a full refund. Credit card orders call: 


ors —-1-800-821-9503 


ge .. 
of oor In Florida (800) 342-0137 
aa a 
HAWAIIAN VILLAGE COMPUTER SOFTWARE 
1109 Pennsylvania Ave. 


Circle no. 133 on reader service card. 








Name: Phone: 

Shipping Address:__——_$_$£{€T?———— 
City: 3 State:________ Zip: 

VISA or MC #: Exp. Date: 


St. Cloud, Florida 32769 


TURBO SCREEN MASTER 


Some of the UNIQUE features of the Turbo Screen Generator are: 
Intelligent Cursor - Computer automatically determines which 
single/double character to use from the Extended IBM Character 
set to draw boxes and borders. You just move the cursor where 
you want the border. The other Screen Systems require that you 
must tediously choose the correct graphic character. 

Extended Variable Names - Allows the use of Structures & Arrays © 
in your variable names and automatically generates the correct 
declarations and initalization routines. Also you are allowed to 
declare a field larger than the screen display size. 

Provides Three Color Selections Methods - Easy to develop color 
screen on Monochrome Monitor and to develop Monochrome 
Screens on the Color Monitor. 

Adaptive Screen - Entry colors change automatically depending 
on what type of screen is in use. 


TURBO TURBO SCREEN 
COMPARISON WITH SCREEN SCREEN SCULPTURE 
MASTER’ VER: 1.10 Ver - 1.01 
Border Color Control YES NO NO 
You Assign Variable Names YES NO YES 
No cyptic variable names whose names 
depend on where they appear on screen 
and Date Checks YES NO YES 
Data Entry Valid Character Set YES NO NO 
Data Entry Mask YES NO YES 
Helpful for Profession 
Screen input & Validation 
Initalize Variables to a starting value YES NO YES 
Data Entry Valid String Set YES NO NO 
Pascal storage for type of Boolean & Integer YES YES NO 
Control Capa/Num Look YES NO NO 
Autonitalization of Date/Time YES NO NO 
User Defined Error & Message Handler YES NO NO 
Generated program adapts automatically 
“to IBM Screen-Monitor Type YES NO YES 
Handles Function Keys YES NO NO 
Help Screen Procedures YES YES NO 
Generated automatically YES NO NO 
Turbo Toolkit Included YES NO NO 
Undo Function YES NO NO 
Provides Running Time Display YES NO NO 
Integrated Data Dictionary YES NO NO 
Autostart Screen for Screen Generation YES NO NO 
PRICE (INCLUDES SHIPPING) $89.95 54.95 125.00 


FREE TURBO TOOL KIT $44.95 


WITH ORDER OF A MASTER PRODUCT VALUE 


YES, Enclosed is 


INTRODUCTORY OFFER 























CJ Turbo Pascal 3.0 $695 $59.95 
OCTurbo DatabaseTool Box $5495 $49.95 
CTurbo Menu Master $6035 $54.95 
OOTurbo Screen Master $12495 $89.95 
C1 Turbo ISAM Master $149.95 $124.95 





Systems Requires: IBM PC,XT,AT or 100% Compatiable -196K. MS DOS 20 or Higher - 80 column 
screen. Turbo Pascal 3.0 - 2 DDYDS Disk Drives. ISAM Program Generator Requires Turbo 
Toolbox. 


These prices include shipping to all U.S. Cities. All foreign orders add $10 per product ordered 


For Other Inquires Cail (305) 892-5686 










































COD’s and Purchase orders WILL NOT be accepted. Outside USA: make payment by bank draft 
payable in US dollars drawn on a US bank. 


©Turbo Pascal & Turbo Database Toolbox are trademarks of Borland International. IBM is; 
trademark of International Business Machines. MS-DOS is a trademark of Microsoft. Turb 
Screen is a copywrite of Pascom Computing. Screen Sculpture is a trademark of the Soft 
ware Bottling Co of New York.© 1985 Hawaiian Village Computer Software. 
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wathisis 2 BASIC BUSIN 


Price is nice - and so is a long list of features - but when you 
choose a software package to automate your accounting, don't 
lose sight of the basics of good business record keeping. Basic 
Business, an all-in-one accounting software package consisting 
of General Ledger, Accounts Receivable, Accounts Payable, 
Payroll, Inventory Control, Sales Order Processing, and 
Purchase Order Processing. It offers an excellent price and 


extensive feature list without sacrificing these basic business - 


principles: 


Full Audit Trails - to give you complete confidence in the 
accuracy of your data and provide crucial backup information 
when you need it. And double entry accounting keeps your 
books in balance. 


Complete Integration - provides efficient processing for all 
your business transactions, updating all of your accounting 
records instantaneously. You only enter the transaction once, 
and all supporting modules are updated automatically. 


Flexibility - Basic Business can be adapted to your way of 
doing business, including balance forward or open item 
accounts receivable, departmental or consolidated general 
ledger, variable aging periods and easy entry of manually written 
checks and voids. 


Extensive Reporting - each accounting module provides 
complete reports, including master lists, transactions, journals, 
Statements and forms. In addition, all data files are compatible 
with Ashton-Tate's dBase II and dBase Ill, for the ultimate in 
custom reporting capability. 

With some accounting software, even packages costing 
hundreds of dollars more, you must make detailed estimates 
and complex calculations for the maxiraum number of 
customers, transactions, inventory items, etc., before using the 
system. Then, when your business grows to exceed these 
original estimates, you must repeat this process. 


Not with Basic Business! All data files are automatically 
initialized when you install the system on your computer. Files 
can grow dynamically as your business increases and 
areusually limited only by the amount of you exceed your 
Original estimates. 


A ORDS, 
RELIABLE INFORMATION...... 








Complete accounting $ o 
software package, only ) P= 


FORMS ARE NO PROBLEM! Basic Business uses 
Standard forms for invoices, statements, checks, purchase 
orders, etc., which may be ordered with your company name, 
adddress and logo imprinted. : 


Basic Business is one of a family of accounting and business 
software packages, and has sold previously for several hundred 
dollars per module. It has been improved, updated and re- 
packaged to sell at a market-busting $89.95 for all seven 
modules. A Point-of-Purchase module, which controls an 
electronic cash drawer and allows direct entry of transactions 
from your sales counter is available. Also a dBase file format 
program is available for importing Basic Business data files into 
dBase II/Ill for custom report generation or other special uses. 


SOURCE CODE AVAILABLE 


Do you have a distinct accounting problem that off-the- 
shelf software won't handle? Special forms or statements? 
Don't write your own accounting system from the ground 
up - start with Basic Business. Call (714) 630-0446 for all 
the details on source code licensing. 


Basic Business can go to work for you today and is available for 
most popular MS-DOS (IBM and compatibles) and CP/M-80 
personal computers. Compare our price, features and attention 
to detail. There is only one choice. . . it's Basic Business. 


ease GUsinese .................... $89.95 
romtol-Purchasa module ............. $99.95 
Gpase Wl tie iormats ............ ss $19.95 








Minimum hardware Required for 
MS-DOS : 128K memory, two 360K 
floppy drives (hard disk 
recommended for Sales and 
Purchase Order Processing), 132 
column printer, MS-DOS (or PC- 
DOS) version 2.0 or later. 


Minimum Hardware Required for 
CP/M-80 computers: 80 x 24 
character display terminal, 64K 
memory, two 360K disk drives 
(hard disk recommended for Sales 
and Purchase Order Processing), 
132 column printer. 








SERVICES 






- and Mac, Apricot, Data General One, Kaypro 2000, Eagle, Epson QX-10 & PX-8 
(ROM), HP-150, and North Star computers. 


ENGINEERING SOFTWARE 


ACNAP: A stand-alone Electronics Circuit Analysis Program for use with passive 
and active circuits consisting of resistors, capacitors, inductors, transistors, op- 
amps, FETs, etc. Features menu driven and very fast processing times with circuits 
saved to disk for later use or editing. 

ACNAP (CP/M & MS-DOS) .. 1... 0. eee ee eee ee ec ee ee teen $69.95 


DCNAP: Stand-alone DC circuit analysis program for use with passive and active 
circuits containing resistors, voltage sources, independent and dependent current 
sources. Fast, menu- driven program with circuit saved to disk for later use or 
editing. 

DCNAP (CP/M & MS-DOS)........ see. $69.95 


Plotpro:; Scientific graph printing program. Prints on 80 or 132 column printer. 
Create linear, semi-logarithmic, and full logarithmic plots with one or two Y axes in 
auto or forced scale. 

Plotpro (CP/M & MS-DOS) ... 0.2... eee eee eee ce ee ee tee eee eee $69.95 


SPP: This Signal Processing Program contains an integrated set of routines which 
analyze linear and non-linear systems and circuits and their effects on user 
specified time domain waveforms. Based on a 512 point Fast Fourier Transform and 
its inverse. Linear processing is in frequency domain and non-linear processing is in 
time domain. 

SPP (CP/M & MS-DOS) ... 0... cece eee eee eee entre tenes $69.95 


SOFTWARE UTILITIES 


Autodiff: File difference detector. This program finds insertions, deletions, and 
changes between any two files. Autodiff can mark the file, display, or print the 
differences, and more! 

RUIOGIEE (CPA) | 5 5 wo eee cece $29.95 


CP/M DateStamper: Automatically stamp your files with the date it is created, last 
read, or modified. Works without a Real Time Clock , or with many clocks currently 
on the market. Utilities are included to allow copying, erasing, or renaming files 
based on time and date. A time logging utility is included to record computer usage 
for business/tax purposes. 















DateStamoar (CP/M)... ee ees $49.95 


Media Master +: Read and Write up to 75 CP/M, MS-DOS & TRSDOS disk formats 
on your IBM or look-alike computer. ZP/EM program is bundled with Media Master 
to allow CP/M programs to run directly on your MS-DOS computer. An $80.00 value. 

ce r——“———“‘“‘—s™OCOCOi—CsCOCSC—SCS*sCs*ssCSCsSS esses $59.95 


Pack and Crypt:Two program set. Pack compresses and expands files on disk to 
save space. Crypt encodes files to provide security for sensitive data. Both are ideal 
for use with modem transfers. 

Pack and Crypt (CP/M & MS-DOS) ....... 2... see eee eee ee nee $24.95 


Sidekick: One of the most popular programs ever written. Use Sidekick as a 
calculator, notepad, appointment calendar, auto dialer, ASCII conversion table and 
much more. On-line help if you forget any of Sidekick’s many functions. 

Sidekick (MS-DOS) .. .. . 2 ec cect eee eee nae ere ceences $54.95 


SmartKey Il: New Release! Same great time saver as the original, and allows 
compiling of definitions you set up with your word-processor! Makes every software 
program you use easier. Can reduce keystrokes by more than 50% by redefining 
any key on your keyboard to be any combination of characters or commands that 
you desire. 

ee r—“eOO—O—OCCSsCSOsiCsCCCSCsCisSC:i=‘Ci<jSSNSNCRCC $49.95 


SmartPrint: A powerful add-on to SmartKey, SmartPrint is a vesatile writing tool 
designed to give you full access to your printer's features such as wide, bold, 
condensed, underlined, subscript, superscript, and more. Works great with 
programs like WordStar and others. 

SAPP i ce ee ee $29.95 


Uniform: Your Computer can read and write up to 80 CP/M, MS-DOS / PC-DOS & 
TRSDOS disk formats. Versions available for most popular CP/M and MS-DOS 
comoauters. Specify your host computer when ordering. 

Uniform (CP/M & MS-DOS) ....... 2c eee ee eee cee eee e teens $69.95 


XTREE: Directory maintenance program that graphically displays subdirectories 
and filename paths. Complete contro! of your directory including delete, rename, 
view, list or show. A must for your IBM or compatible. 

XTREE (MS-DOS) . .. nn ce ee ee eet ences $49.95 


Super Zap: Disk patch and dump program. If you have used DU, you will love this 
menu driven marvel! 
igre r——r——“—sSs—stsSS“‘“C “$C $24.95 


ZP/EM: Run almost any CP/M program on your IBM or clone. Use with Media 
Master or Uniform to allow programs on CP/M disk formats to run directly on your 
IBM or compatible computer. 

ZP/EM (MS-DOS) .... 22. cee cee cee rece cere eee e ete ee eee nneees $39.95 


FX, QX-10, PX-8 - Epson Corp; CP/M - DRI; MS-DOS - MicroSoft, PC-DOS - IBM Corp.; dcBASET. & 
dBase Ill - Ashton-Tate, WordStar - MicroPro; UNIX - Bell Laboratories; Apple - Apple Computer Inc.; 
Basic Business - Advent Products Inc. 





| _ File Transfer Service: Advent provides a service beyond the ability of any format 
conversion software! We can transfer files between MS-DOS/PC-DOS, CP/M and — 
other operating systems in 300 different 3 1/2”, 5 1/4" and 8" formats. Includes Apple 










PROGRAMMING LANGUAGES 
C/80 Ver 3.1: Full featured C compiler and runtime library. One of the fastest on 
the market. Mathpak is included for true 32 bit floating point and signed S. 

C/80 Ver. 3.1 (CP/M)............. se. eee e. $ 
C/NIX: Operating System Enhancement for CP/M. C/NIX gives your 
features in the UNIX OS such a hierarchical directory, VO redirec 
"filters" and command files. Uses only 2.3K of TPA and 42K of disk. Re 
CNIX..................-..........--. ne 


LISP/g0: Experiment with the artificial intelligence lang 





‘es 6 een es ; 












INTERLISP dialect, LISP/80 offers over 75 built-in functions, including 
string operations. Complete with 36 page manual and demo programs. _ 
LISP/OG... . . ccs. eee 


Toolworks C: This compiler is a complete subset of C. The two- pass. 
produces relocatable object files (.obj) which are compatible with the MS- 


program. Mathpak is included for true 32 bit floating point and signed inte 













Toolworks C Compiler (MS-DOS) ..... a rr 8 

Turbo Pascal: Borland version 3.0. The best Pascal compiler on the 

Turbo Pascal (CP/M & MS-DOS)........ — 

Turbo Toolbox: Setof3utiitiesforusewithTurboPascl = st 
Turbo Toolbox (CP/M & MS-DOS) ...............-. So. ($54.95 
Turbo Tutor: Teaches step-by-step how to use Turbo Pascal. 

Turbo Tutor (CP/M & MS-DOS)............. ol Ce $34. 


Turbo Graphics: Provides full graphics management for producing windows, pie _ 
and pie charts, circles and other geometric shapes with Turbo Pascal. 
Turbo Graphics (MS-DOS) .............. ee . $54.95 


TEXT EDITING 


Punctuation & Style: Improves your writing by catching unbalanced quotes, 
parentheses and brackets, improper abbreviations, capitalization, sentence 
structure, much more. It's like having your own copy editor! 

Punctuation & Style (CP/M & MS-DOS) ................2.0.+2.+ $125.00 


Word Finder: This powerful 90,000 word Thesaurus allows you to select the best 
word for the application. Works inside WordStar for greater ease of use. Instantly 
searches its dictionary, then displays synonyms, and automatically deletes the 
“wrong” word and replaces it with the “right” word. Requires 380K disk storage. 
Word Finder (CP/M) ......... 2.2.2. STS 


Wordpatch: Print files with tiny, compressed, wide, or wide compressed type faces, — 
5 sizes of italic, real superscripts and subscripts, and 6, 7, and 8 lines per inch 
spacing. No new print controls to learn. Supports most popular dot matrix printers. A 
must for WordStar users! 
Wordpatch (CP/M & MS-DOS)..........-..-....5....-.......- G4G9S 


The Word Plus: The ultimate spelling checker. Not only finds misspelled words but 
shows you correct spelling options, shows the word in context, allows you to build ~ 
dictionaries of special words you use, and much more. 

The Word Plus (MS-DOS) ... ce ee $150.00 


HARDWARE & SUPPLIES 
Finger Print “Letter Writer": Unleash your Epson FX series printer. Add near- 


letter-quality print, IBM and/or Apple Graphics printer emulation, plus 16 other print 
functions! Three replacement chips quickly fit inside Epson FX series printers. Easy 


installation. Does not void printer warranty. 


Finger Print “LetterWriter’ .. 1... ee eee ete tenes $79.95 

Diskettes, Double Density: | 
Maxell 10-pack w/ storage box: 3M box of 10: 

Singie Sided .............. $19.95 Single Sided............. $22.95 

Double Sided ............. $23.95 Double Sided............ $26.95 
Economy Diskettes: package of 25 including tyvek sleeves. 

pe ce ——r—ai—i_OO_NONO sees ... $29.50 


ee, rrr—“i—st—™s—s—SSSsP 
Call or write for our FREE catalog ss 


All items are warranteed for 90 days. 30 day money back guarantee if not 
completely satisfied. Guarantee for software applies only if diskette seal is intact. 
Visa and MasterCard are welcome. Please add 2.00 freight per total order and 2.00 
for COD orders. California residents please add 6% sales tax. Prices, availability and 
specifications subject to change without notice. 


National 


CALL TODAY (800) 821-8778 
california (800) 521-7182 
Hours: Mon - Fri8 am- 5 pm PDT 

DEALER INQUIRIES WELCOME. 
PTV ile 3154-F E. La Palma Ave 
3 Anaheim, CA92806 


prmdecks ie. (714) 630-0446 





@ @ 
| ProDos Copy Listing 
_ (Listing continued, text begins on page 54) 
61D8:E£5 FE 311 SBC COUNT 
61DA:8D D8 BE 312 STA  RWDATA+1 ;Save buffer start address 


61DD:8D Ad 62 313 RELOC13) STA = WR2BUF+1 

ali file 61E0:A9 00 314 LDA #500 ;Buffer starts on a page boundary 
61E2:8D D7 BE 315 STA = RWDATA 
61£5:8D A3 62 316 RELOC14 STA WR2BUF 


61£8: 317° * 
; 61E8: 318 * Open the destination file 
61E8: 319 * 
61E8:AD 6E BE 320 LDA VPATH2 ;Pathname pointer 
61EB:8D 9C 62 321 RELOCIS STA OPEN2PATH 
gi 61EE:AD 6F BE 322 LDA VPATH2+1 






haus Bh 62 a RELOC16 STA OPEN2PATH+1 ‘ ‘ 

61F4: O BF 4 JSR MLI ;Perforin MLI cal 

MOC es. Saucy BP hme ES te 
auger Te aan a NE fo rhe oe seas ee 


E 


Was Baia) 4S FOR SiFD: 20.69. Bi 329 JSR FREBUFR 7Release buffer 
labs 330 PLA ;Restore error code 














del eye: wea PC 6201:4C 8B BE 331 JMP BADCALL 7Translate error code and exit 
6204: 332 * 
6204: gon * Open source file 
DATA TY 6204: 334 * 
PES 6204:A5 74 335 OPENSRC LDA _ IHIMEM+1 7Get buffer start 
Lists and Symbols 6206:8D CF BE 336 STA OSYSBUF+1 ; (use general purpose buffer) 
id ao 6209:A9 00 337 LDA #S00 ;Buffer always on a page boundary 
Unlimited Precision Integers 620B:8D CE BE 338 STA  OSYSBUF : i 
Floating Point Numbers 620E:A9 C8 339 LDA #$C8 ;MLI open code 
Character St . 6210:20 70 BE 340 JSR  GOSYSTEM ;Perform the MLI call 
ac rINQS 6213:B0 1D 6232 341 BCS —_ ERRORET ;Exit if error detected 
Multidimensional Arrays a io LDA OREFNUM To uihec 
: :8D D2 BE STA NEWLREP ;Por NEWLINE call 
Files — 621B:8D D6 BL 344 STA  RWREFNUM ;For READ call 
Machine Language Code 621E:8D DE bE 345 STA CFREFNUM #for CLOSE call 
6221:A9 00 346 LDA #500 ;Set up NEWLINE call 
2 MEMORY MANAGEMENT 6223:8D D3 BE 347 STA NLINENBL ;to disable NEWLINE char 
6226:A9 OD 348 LDA s#SOD ;Non-zero 
Full Memory Space Supported 6228:8D D4 BE 349 STA NLINENBL+1 
Dynamic Allocation bans 70 tes aoe aan eeeiiey, ‘(spettore themaneanl 
Compacting Garbage Collector 6230:90 07 6239 352 BCC TRANSFER ;I£ no errors detected 
6232:48 353 ERRORET PHA ;Save error code 
Be FUNCTION TYPES 6233:20 65 62 354 JSR CLEANUP 7Close files and free buffer 
6236:68 355 PLA ;Restore error code 
EXPR/FEXPR/MACRO “ 6237:38 356 SEC ;Flag error 
Machine Language Primitives te nas 3 Pee te 
Over 190 Primitive Functions 6239: Jun. * Both files are now open so perform transfer 
6239: 360 * 
pee i0 SUPPORT 6239:AD AO 62 361 TRANSFER LDA  OPEN2REF #Set up WRITE file reference number 
, 623C:8D A2 62 362 RELOC18 STA WR2REF 
Multiple Display Windows 623F:A9 CA _ 363 XFERLOOP LDA #SCA ;MLI READ code 
Cursor Control! aye ze Be — JSR GOSYSTEM ;Perform the MLI call 
\ 6246:C9 05 366 CMP = #$05 sEnd of file? 
Read and Splice Macros 6248:FO 1B 6265 367 BEQ CLEANUP 7Yes, so clean up and exit 
Disk Files 624A:D0 E6 6232 368 BNE —ERRORET 7Exit with appropriate error 
624C:AD DB BE 369 XFEROK LDA  =RWTRANS ;Number of bytes transferred 
624F:8D AS 62 370 RELOC19) =STA  WR2REQ Request to write these bytes 
M™ POWERFUL ERROR RECOVERY || «252: ccus = 371 LDA RVTRANS+ 1 
6255:8D A6 62 372 RELOC20 STA WR2REQ+1 
P| 8087 SUPPO RT 6258:20 00 BF 373 JSR MLI Write the data to the destination file 
625B:CB 374 DFB = $CB ;MLI WRITE code 
625C:Al 62 375 RELOC2l1 DW  WR2PARMS 
eS COLOR GRAPHICS 625E:90 DF 623F 376 BCC XFERLOOP 
6260:20 8B BE 377 JSR ~~ BADCALL ;Translate to BI error code 
@ LISP LIBRARY oo cD 6232 378 BCS ERRORET ;Always 
5: 379 *----------------------- --------- w---------- 
Structured Programming Macros a oie : Close open files and free the allocated buffer space 
Editor and Formatter 6265:A9 00 382 CLEANUP 1k $300. =» . yuateeaneee iis erteoud Antackedl 
Package Support 6267:85 FC 383 STA TEMP 
Debugging Functions eoaoiageat, °C ae Piaget 
.OBJ File Loader 626£:90 02 6272 386 BCC RELOC22 ;1£ no error detected 
6270:85 FC - 337 STA TEMP ;Update error 
ei RUNS UNDER PC-DOS 1 1 or 2 0 ye _ e2 se ae i jena ;Close destination file 
: : : RELOC STA CLOSE2REF 
ee 6278:20 00 BF 390 JSR MLI ;Perforin the MLI call 
627C:a9 62 392 RELOC2A Dw La oh in Sa 
Cs RELOC24 DW CL2PARMS *CLOSE parameter list 
IQLISP esis penne tae BCC FREE :If no error detected 
rv : 2 : 4 JSR BADCALL Translate to BI error 
5%" Diskette 6283 :85 rc c 395 STA TEMP ;Update error 
: 3 6 FREE JSR FREBUFR sDeallocate file buffer 
and Manual 175.00 6288: 18 397 CLe ;Default to no error 
: 3 2 S detected 
$ 6289:A5 FC 398 LDA TEMP pabene code inA 
628B:FO 01 628E 399 BEQ RET #Zero if no errors 
a eee oa SEC #Plag error 
4 RET RTS 
628F: 402 *------~~----------—------- 
: 628F: 403 * Pp ster li SREATE 
I ; 628F: eeGictunannne Whaat Pron se ee - 
q Hh leer al Quali ty aoe te? os 405 CRPARMS DPB $07 ;Parameter count 
: 406 CRPATH DS 2 #Pointer to thna 
p 0 B 6292: 0001 407 CRACCESS ODS a 7 Access parece Erte 
~U. BOX 31970 6293: 0001 408 CRFILID DS 1 ?File type 
: 6294: 0002 409 CRAUXID Ds 2 +File aux type 
Seattle, Washington 98103-0070 6296:01 410 DEB $01 ;Standard file (ot directory) 
206 597 9 6297:00 00 411 CRDATE DFB_ $00,$00 ;Create date 
( ) -2918 6299:00 00 412 CRIIME Dew $00,500 ;Create time 
3 3 Fo a a a ee aD 
Washington State residents add sales tax. 6298: 414 * Parameter list for OPEN 
VISA and MASTERCARD accepted. 6298: 1 rr oa 


Shipping included for prepaid orders. (Continued 68) 
ontinued on page 
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Tools That Make Your Job Easier 


For PCDOS/MSDOS (2.0 and above/128K ) ® IBM PC/Compatibles, PC Jr., Tandy 1000/1200/2000, & others 
For CPM80 2.2/3.0 (Z80 required/64K) ®@ 8” SSSD, Kaypro 2/4, Osborne I SD/DD, Apple IT, & others 





MIX EDITOR 


Programmable, Full/Split 
Screen Text Processor 





Introductory y 9 5 
Offer 
Great For All Languages 


A general purpose text 
processor, the MIX Editor is 
packed with features that make 
it useful with any language. It 
has auto indent for structured 
languages like Pascal or C. It has 
automatic line numbering for 
BASIC (255 character lines). It 
even has fill and justify for 
English. 


Split Screen 


You can split the screen 
horizontally or vertically and 
edit two files simultaneously. 


Custom Key Layouts 


Commands are mapped to keys 
just like WordStar. If you don’t 
like the WordStar layout, it’s 


easy to change it. Any key can be 


mapped to any command. You 
can also define a key to generate 
a string of characters, great for 
entering keywords. 


Macro Commands 


The MIX Editor allows a 
sequence of commands to be 
executed with a single 
keystroke. You can define a 
complete editing operation and 
perform it at the touch of a key. 


Custom Setup Files 


Custom keyboard layouts and 
macro commands can be saved 
in setup files. You can create a 
different setup file for each 
language you use. 


MSDOS Features 


Execute any DOS command or 
run another program from 
inside the editor. You can even 
enter DOS and then return to 
the editor by typing exit. 









MIX C COMPILER 


Full K&R Standard C Language 





Unix Compatible Function Library 


Introductory 
Offer 


Complete & Standard 


MIX C is a complete and 
standard implementation of C 
as defined by Kernighan and 
Ritchie. Coupled with a Unix 
compatible function library, it 
greatly enhances your ability to 
write portable programs. 


The Best C Manual 


MIX C is complemented by a 
400 page manual that includes 
a tutorial. It explains all the 
various features of the C 
language. You may find it more 
helpful than many of the books 
written about C. 


Fast Development 


MIX C includes a fast single 
pass compiler and an equally 
fast linker. Both are executed 
with a simple one line 
command. Together they make 
program development a quick 
and easy process. 


Fast Execution 


The programs developed with 
MIX C are fast. For example, 
the often quoted prime 
number benchmark executes 
in a very respectable 17 
seconds on a standard IBM PC. 






30 DAY MONEY BACK GUARANTEE 
Orders Only: Call Toll Free 1-800-523-9520, (Texas only 1-800-622-4070) 


Q” 


Standard Functions 


In addition to the functions 
described by K&R, MIX C 
includes the more exotic 
functions like setjmp and 
longjmp. Source code is also 
included. 


Special Functions 


MIX C provides access to your 
machine’s specific features 
through BDOS and BIOS 
functions. The CHAIN function 
lets you chain from one 
program to another. The 
MSDOS version even has one 
function that executes any DOS 
command string while another 
executes programs and returns. 


Language Features 


@ Data Types: char, short, int, 
unsigned, long, float, double 
(MSDOS version performs 

BCD arithmetic on float and 
double-no roundoff errors ) 
® Data Classes: auto, static, 
extern, register 

® Struct, Union, Bit Fields 
(struct assignment 

supported ) 

® Typedef, Initialization 

@ All operators and macro 
commands are supported 





MIX Editor ___ $29.95 + shipping ($5 USA/$10 Foreign) Texas residents add 6% sales tax 


MIX C 
Visa ____ MasterCard _____ Card * 




















____ $39.95 + shipping ($5 USA/$25 Foreign) Texas residents add 6% sales tax 


Exp. Date 





COD —.... Check Money Order Disk Format $$ eee 
Computer Operating System: MSDOS —__ PCDOS —___ CPM80 —_ 
Name 2116 E. Arapaho 
Street Suite 363 iad 
Country Dealer Inquiries Welcome 
Call (214) 783-6001 


Phone 


ec a 
MSDOS is a trademark of Microsoft © PCDOS isa trademark of IBM  CPM80 is a trademark of Digital Research WordStar is a trademark of MicroPro 
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ProDos Copy Listing 


(Listing continued, text begins on page 54) 





Instant-C: 
The Fastest 








629B:03 416 OPEN2PARM DFB $03 ;Parameter count 
629C: 0002 417 OPEN2PATH DS 2 7Pointer to pathnaine 
629E: 0002 418 OPEN2BUF DS 2 7Pointer to I/O buffer 
Interpreter for C 62A0: 0001 419 OPEN2REF pS 1 ;File reference number 
62Al: 420 -#~--an— -~---—---------- +--+ ----_--- 
62Al: 421 * Parameter list for WRITE 
62Al: DD Rm ne 
62A1:04 423 WR2PARMS DFB- $04 ;Parameter count 
62A2: 0001 424 WR2REF DS Te Per iny a 
gra 62A3: 0002 425 WR2BUF DS 7File transfer er 
Runs your p ro Ms 50 eas 0002 426 WR2REQ DS sNumber of bytes to nopetten 
e i y ; ;Number of b tre 
to 500 times faster than ee el Asia <call et Cie See 
62A9: 429 * Parameter list for CLOSE 
any other C language 62A9: 430 *-~-~----------------------- -~---~-------~---------- 
e t t 62A9:01 431 CL2PARMS DFB $o0l ; Parameter count 
in erpre er. 62AA: 0001 432 CLOSE2REF DS 1 File reference nuinber 
62AB: 62AB 433 END EQU 
AY C interpreter can save you compile 3D AlH 3C ALL 3F A2H 3E A2L 
: : : 43 Adil 42 A4L BE8B BADCALL 6083 BITMAPS1 
and link time when ee your 6073 BITMAPS BF5S8 BITMAP BEDE CFREFNUM 62A9 CL2PARMS 
5 6265 CLEANUP 62AA CLOSE2REF 6109 CMDSTRL 6104 CMDSTRU 
p rograms. But only Instant-C saves FE COUNT 6292 CRACCESS 6294 CRAUXID 26297 CRDATE 
your time by running your program at 26196 CREATE 6293 CRFILID 628F CRPARMS 6290 CRPATH 
; 26299 CRTIME 62AB END 6232 ERRORET BEO9 ERROUT 
compiled-code speed. BEO6 EXTRNCMD BES6 FBI'S ?BEB7 FIACESS BEB9 FIAUXID 
BEB8 FIFILID 6176 FILBOK 60C8 FILLPAGE BEF8 FREBUFR 
Fastest Development. A program 6285 FREE bers GETRUER 6188 GETWORE B70 cOSYSTEM 
; ; CC GOTENOUGH B SPACE ? p 
that runs in one second when compiled 6100 LINK 6172 MISMATCH BOO MLI 6159 MLIERR 
. ra . FE2C MOVE BED2 NEWLREF BED3 NLINENBL 611A NXICHR 
with an optimizing compiler runs in 612A NXTCHR2 FD OFFSET \ 629i OPEN2BUF 629B OPEN2PARM 
i Z 629C OPEN2PATH 62A0 OPEN2REF 6204 OPENSRC BEDO OREFNUM 
two Or three seconds with Instant-C. BECE OSYSBUF 6103 PAGES 615B PARMSOK BES4 PBITS 
Other interpreters will run the same 600F PROTECT FE PTR 61AC RELOC10 61Bl RELOC11 
j : 61D4 RELOC12 61E5 RELOC14 611D RELOC1 61DD RELOC13 
program in two minutes. Or even ten 61EB RELOC1S 61F1 RELOC16 61F8 RELOC17 623C RELOC18 
. “1: 624F RELOCLY 6255 RELOC20 625C RELOC21 6272 RELOC22 
minutes. Don’t trade slow compiling 6275 RELOC23 6122 RELOC2 627C RELOC24 613D RELOC3 
ink ‘ s 617C RELOC4 6182 RELOCS 6187 RELOC6 618D RELOC7 
and linking for slow testing and debug 6193 RELOC8 619A RELOCY 6042 RELOCATE 6091 RELTABLE 
ging. Only Instant-C will let you edit, 628E RET 615A RETURN BEFB RSHIMEM BEDI RACOUNT 
test, and debug at the fastest possible ae Eee pildseee. | 2. aig ecoee Tee sean 
Sp os ds 60C7 TABLESIZE FC TEMP ?61B4 TRANSBUF 6239 TRANSFER 
. BE6C VPATHL BE6E VPATH2 62A3 WR2BUF 62A1l WR2PARMS 
‘ ; ‘ 62A2 WR2REF 62A5 WR2REQ 262A7 WR2TRANS BES3 XCNUM 
Fastest Testing. Instant-C immedi- 623F XFERLOOP 624C XPEROK BES2 XLEN BESO XTRNADDR 
ately executes any C expression, state- 
; ; 3C ALL 3D AlH 3E A2L 3F A2H 
ment, or function call, and display the 42 A4L 43 AdH 73 HIMEM FC TEMP 
FD OFFSET FE PTR FE COUNT 20200 INBUF 
results. Learn C, or test your programs 600B GOTSPACE 600F PROTECT 6042 RELOCATE 6073 BITMAPS 
6083 BITMAPS1 6091 RELTABLE 60C7 ‘TABLESIZE 60C8 FILLPAGE 
faster than ever before. 6100 LINK 6103 PAGES 6104 CMDSTRU 6109 CMDSTRL 
. ; 610E START 611A NX'ICHR 611D RELOCL 6122 RELOC2 
Fastest Debugging. Instant-C gives 612A NXTCHR2 613D RELOC3 614E SECOND 6157 SYNERROR 
6159 MLIERR 615A RETURN 615B PARMSOK 6172 MISMATCH 
you the best source-level debugger for 6176 FILEOK 617C RELOC4 6182 RELOCS 6187 RELOC6 
: ij 618D RELOC7 6193 RELOC8 26196 CREATE 619A RELOCS 
C. Single step by source statement, or G1A1 SUCCESS 61AC RELOC1O 61B1 KELOC11 26134 ‘TRANSBUF 
set any number of conditional break- 61B8 GETMORE 61CC GOTENOUGH 61D4 RELOC12 61DD ReLOC13 
‘ 61E5 RELOC14 61EB RELOC15 61F1 RELOC16 61F8 RELOCL? 
points throughout your program. Errors 6204 OPENSRC 6232 ERRORET 6239 TRANSFER 623C RELOC18 
623F XFERLOOP 624C XFEROK 624F RELOC19 6255 RELOC20 
always show the source statements 625C RELOC21 6265 CLEANUP 6272 RELOC22 6275 RELOC23 
: 627C RELOC24 6285 FREE 628E RET 628F CRPARMS 
involved. Once you find the problem, 6290 CRPATI 6292 CRACCESS 6293 CRFILID 6294 CRAUXID 
test the correction in seconds. ?6297 CRDATE 26299 CRTIME 62983 OPEN2PARM 629C OPEN2PATH 
629E OPEN2BUF 62A0 OPEN2REF 62Al WR2PARMS 62A2 WR2REF 
. * 62A3 WR2BUF G2A5 WR2REQ 262A7 WR2TRANS 62A9 CL2PARMS 
F astest P rogramming. Instant-C 62AA CLOSE2REF 62AB END BE06 EXTRNCMD BEO9 ERROUT 
can directly generate executable files, BESO XTRNADDR BES2 XLUN BES3 XCNUM BES4 PBITS 
BES6 FBI'S BE6C VPATHL BE6E VPATH2 BE70 GOSYSTEM 
supports full K & R standard > comes BE8B BADCALL BEB4 SSGINFO ?BEB7 FIACESS BEB8 FIPILID 
: ; BEB9 FIAUXID BECE OSYSBUF BEDO OREFNUM BED2 NEWLREF 
with complete library source, and works BED3 NLINENBL BED6 RWREFNUM BED? RWDATA BEDS RWOOUNT 
BEDB RwPRANS BEDE CFREFNUM BEFS GETBUFR BEF8 FREBUFR 
under PC-DOS ) MS-DOS, or CP/M-86. BEFB RSIIMEM BPOO MLI BFP58 BITMAP FE2C MOVE 


Instant-C gives you working, well- 
lested programs faster than any other 
programming tool. Satisfaction guar- 
anteed, or your money back in first 
31 days. Instant-C is $495. 


Rational 


Systems, Inc. 


P.O. Box 480 
Natick, MA 01760 
(617) 653-6194 


Circle no. 145 on reader service card. 


** SUCCESSFUL ASSEMBLY := NO ERRORS 


** ASSEMBLER CREATED ON 15-JAN-84 21:28 


** TOTAL LINES ASSEMBLED 433 
** FREE SPACE PAGE COUNT 79 


End Listing 
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DIGITAL RESEARCH COMPUTERS 
(214) 225-2309 


aye | 64K S100 STATIC RAM 
Switching Power Supply! $419°° que 


LOW POWER! 
150 NS ADD $10 
BLANK PC BOARD 

























+ 5VDC - 8 Amps 
+12VDC - 5 Amps 
-12VDC - 1 Amp 
(81 WATTS MAX) 


















WITH DOCUMENTATION 


eo FEATURES: PRICE CUT! 


SUPPORT ICs + CAPS Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 
$ 95 $17.50 * Fully supports IEEE 696 24 BIT Extended 
ea. ’ Addressing. 













* 64K draws only approximately 500 MA. 
FULL SOCKET SET * 200 NS RAMs are standard. (TOSHIBA makes 
$14.50 TMM 2016s as fast as 100 NS. FOR YOUR HIGH 



















BRAND NEW UNITS, MFG. BY BOSCHERT FOR HEWLETT FULLY SUPPORTS THE ,’SugeonTs PHANTOM: 

PACKARD! PERFECT FOR SMALL COMPUTER AND DISK NEW IEEE 696S100  " ANDENTIREBOARD), 
DRIVE APPLICATIONS #XL81-5630. INPUT 110V/220V, STANDARD «Any of the top BR (e000 HAND ABOVE) may 
50/60 HZ. NOMINAL OUTPUTS: +5VDC @ 8A, +12VDC @5A, (AS PROPOSED) be disabled to. provide ‘windows to eiininete 
-12VDC @ 1A. TOTAL MAX OUTPUT. MUST BE LIMITED TO FOR 56K KIT $105 ay possible conflicts with your system monitor, 


disk controller, etc. 
ASSEMBLED AND eer er small ee Ben wee and 
ma -exist on " 
TESTED ADD $50_ BOARD iar ne uriéaiip iGnace as 56K. 
PANASON 
a a 
Green Screen - Video Monitors 


25 MHZ. TYPICAL BANDWIDTH!!! 


Brand New In The Box! 9-Inch Screen 
#K-904B1 (Chassis #Y08A) Open Frame Style 
GROUP SPECIAL: 


4 for *99°° 


WITH DATA & SCHEMATIC 






81 WATTS TOTAL! (WITH PIN OUT SHEET.) ORIGINAL 
FACTORY BOXED. 


256K S-100 SOLID STATE DISK SIMULATOR! 

WE CALL THIS BOARD THE “LIGHT-SPEED-100" BECAUSE IT OFFERS 

AN ASTOUNDING INCREASE IN YOUR COMPUTER'S PERFORMANCE 

WHEN COMPARED TO A MECHANICAL FLOPPY DI!SK DRIVE. 
FEATURES: 


PRICE CUT! * 256K on board, using + 5V 64K 
S DRAMS. 


* Uses new Intel 8203-1 LSI Memory 
Controller. 

* Requires only 4 Dip Switch Selectable 
1/O Ports. 

* Runs on 8080 or Z80 S100 machines. 

* Up to 8 LS-100 boards can be run 
together for 2 Meg. of On Line Solid 
State Disk Storage. 

* Provisions for Battery back-up. 

* Software to mate the LS-100 to your 
CP/M* 2.2 DOS is supplied. 

* The LS-100 provides an increase in 
speed of up to 7 to 10 times on Disk 
Intensive Software. 

* Compare our price! You could pay 
up to 3 times as much for similar 

















































































(USA SHIPPING: $3. PER UNIT. CANADA: $7. PER UNIT) 
COMPUTER MANUFACTURER'S EXCESS. STILL IN ORIGINAL 
















BLANK PCB 





waniny tae ence ieee boards. PANASONIC BOXES. THE CRT TUBE ALONE WOULD COST MORE 
AND INSTALL 

THAN OUR PRICE FOR THE COMPLETE UNIT. FOR SPLIT VIDEO 

ene $7 49 00 (TTL INPUTS) OPERATION, NOT COMPOSITE VIDEO. OPERATES 

69 (ADD $50 FOR A&T) FROM 12VDC AT 1 AMP. VERTICAL INPUT IS 49 TO 61 HZ. 

(pans EE See #LS-100 (FULL 256K KIT) HORIZONTAL INPUT: 15,750 HZ + 500 HZ. RESOLUTION IS 800 
















LINES AT CENTER 650 LINES AT CORNERS. 





THE NEW ZRT-80 
CRT TERMINAL BOARD! 


A LOW COST Z-80 BASED SINGLE BOARD THAT ONLY NEEDS AN 
ASCII KEYBOARD, POWER SUPPLY, AND VIDEO MONITOR TOMAKEA 
COMPLETE CRT TERMINAL. USE AS A COMPUTER CONSOLE, OR 
WITH A MODEM FOR USE WITH ANY OF THE PHONE-LINE COMPUTER 
SERVICES. _— — es hii Fenris 
FEATURES: 
* Uses a Z80A and 6845 CRT 
Controller for powerful video 









32K S100 EPROM/STATIC RAM 
FOUR FUNCTION BOARD! 


EPROM Il 



















BLANK 
PC BOARD 
WITH DATA 

$39.95 































FULL 
EPROM KIT 
$69.95 


A&T EPROM 1 ; ee 
ADD $35.00 Ee 






SUPPORT 






















capabilities. Ic’s 
* RS232 at 16 BAUD Rates from 75 PLUS CAPS 
to 19,200. ae oe Pe $16 
* 24x 80 standard format (60 Hz). 
* Optional formats from 24 x 80 We took our very popular 32K S100 EPROM Card and added FULL 


SOCKET SET 


(50 Hz) to 64 lines x 96 characters $15 


(60 Hz). 

* Higher density formats require up to 
3 additional 2K x 8 6116 RAMS. 

x Uses N.S. iNS 8250 BAUD Rate Gen. 
and USART combo IC. 

* 3 Terminal Emulation Modes which 


additional logic to create a more versatile EPROM/RAM Board. 


FEATURES: * This one board can be used in any one of four ways: 
A. As a 32K 2716 EPROM Board 
B. As a 32K 2732 EPROM Board (Using Every Other Socket) 
C. As a mixed 32K 2716 EPROM/2K x 8 RAM Board 
D. As a 32K Static RAM Board 























i i . Th * Uses New 2K x 8 (TMM2016 or HM6116) RAM's 
maids nea, the Heath $ 95 e re * Fully Supports IEEE 696 Buss Standard (As Proposed) 
H-19, and the Beehive © & * Supports 24 Bit Extended Adressing 
* Composite or Split Video. #ZRT-80 N7_OY = 200 NS (FAST!) RAM'S are standard on the RAM Kit 
* Any polarity of video or sync. (COMPLETE KIT, 2K VIDEO RAM) LO ‘ aah et oe and North Star Bank Select 
* Inverse Video Capability. 
* Small Size: 6.5 x 9 inches. BLANK en Seis oY : arbi iat ee 
Se en ee eee eas eat: * Addressed as two separate 16K Blocks on any 64K Boundary 
* 7X 9 Character Matrix. $4995 « Perfect for MP/M* Systems 
*- Requires Par, ASCH keyboard. ae a * RAM Kit is very low power (300 MA typical) 
FOR 8 IN. SOURCE DISK SOURCE DISKETTE - 
i ges tre caeeoee teenies acca ttcapinetasnlip= 
(CP/M COMPATIBLE) SET OF 2 CRYSTALS - ADD $7.50 32K STATIC RAM KIT — $99.95 







ADD $16 





For RAM Kit A&T — Add $40 
TERMS: Add $3.00 postage. Orders under $15 add 75¢ handling. No 
C.O.D. We accept Visa and MasterCharge. Tex. Res. add 5-1/8% Tax. 
Foreign orders (except Canada) add 20% P & H. Orders over $50 add 85¢ 
for insurance. 





Digital Research Computers 


P.O. BOX 381450 « DUNCANVILLE, TX 75138 + (214) 225-2309 


*TM OF DIGITAL RESEARCH INC. (CALIF.) WE ARE NOT ASSOCIATED WITH DIGITAL RESEARCH INC. (CALIF.) THE SUPPLIERS OF CPM SOFTWARE 
| Circle no. 87 on reader service card. 


CP/M-68kK Conditional Batch 


Processing 





by Roger E. Donais 


70 


nyone who uses batch process- 
A ing is certain to recognize the 

value of conditional instruc- 
tions. A few basic submit statements, 
such as SKIPIF, PAUSEIF, and 
ABORTIF have been added to CP/M- 
80 in the past. These instructions 
make it possible for compiling, as- 
sembling, and linking to be handled 
by a single submit file that is smart 
enough to stop the process if any 
phase should fail. 

CP/M-68K and CP/M-80 are simi- 
lar in many ways. In fact, files and 
programs can share the same disk 
without adverse consequences. They 
are, however, as different as the pro- 
cessors they support. Because CP/M- 
80 creates a working copy of a submit 
file, that file becomes the natural tar- 
get for implementing batch control 


gramming effort by taking advantage 
of the parsing done by the CCP, and 
yet present a recognizable form of 
conditional statement. 


IF <parameter> <condition> 
.<action> /$$$$/ <statement> 


Condition: The first four characters 
taken from the file-name field of the 
file control block created by the CCP 
are used to identify the condition to 
be tested. An asterisk may be ap- 
pended to indicate that the comple- 
mentary condition is to be used. 


AMBIG tests for an ambiguous pa- 
rameter (wildcards). 

EXISTS tests for an existing file. 

EMPTY tests for an empty file or 
nonexistent file. 





A simple “if” can greatly speed the software 
development process. 





functions. On the other hand, CP/M- 
68K stores the expanded file in mem- 
ory. The fact is that a direct approach 
would require more knowledge about 
the undocumented aspects of CP/M- 
68K than can be acquired in an 
evening! 

IF.68K (Listing One, page 72) be- 
gan as two outlines. The first listed 
what was wanted and the other de- 
scribed how it would be accom- 
plished. One pencil later the follow- 
ing compromise was reached: 


Syntax: The conditional statement is 
structured so as to minimize pro- 





Roger E. Donais, 7506 Republic Ct., 
Alexandria, VA 22306 


NULL tests for an undefined 
parameter. 


Actions: The first character taken 
from the file-type field of the same file 
control block is used to identify the 
desired action. An asterisk may again 
be appended to indicate that the com- 
plementary action is to be taken. 


S(kip) ignores the statement 
following /$$$$/. 

Q(uit) aborts submit file 
processing. 

P(ause) prompts for operator 
assistance. 


The double-slash quad-dollar-sign 


token separates the conditional state- 
ment from the executable CP/M com- 
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mand tail. When the submit file is ex- 
panded, a dollar sign is used as the 
leading character to signal formal pa- 
rameter replacement. If the next char- 
acter is not an ASCII digit, the charac- 
ter is written to the expanded output 
and no replacement is performed. 
This simply means that we use four 
dollar signs in the submit file but have 
the program search for only two. 

One disadvantage with this com- 
promise approach is that CP/M-68K 
will pass only one command. This lim- 
its the range of the conditional state- 
ment to one CP/M-68K command. 
It’s bad enough that the same condi- 
tional statement has to be entered 
over and over again in order to control 
a range of commands, but the aggra- 
vation of watching it reload each time 
is just too much! 

With a little camouflage, CP/M 
can be tricked into passing more than 
one command. The best character 
seems to be a semicolon. Very few 
programs dare use this character be- 
cause it marks the beginning of a 
comment. This makes it a prime can- 
didate for an alternate command sep- 
arator. It affects very few programs 
and conceals its true intent from CP/ 
M, and our program need only re- 
place these bogus separators with the 
exclamation marks that CP/M-68K 
expects to find. 

The problem with this wonderful 
logic is that CP/M-68K seems to stop 
building the command tail after it 
finds a semicolon. Because the basic 
technique could use any character, a 
backslash became the next choice. 
Although the entire command tail is 
passed, the chain function does not 
protect the referenced line but leaves 
it where it is. It doesn’t take much 
imagination to realize what happens 
when the default buffer is overwrit- 
ten. So we are limited to using it with 
built-in commands and the aggrava- 
tion of using only one external 
command. 

Let’s look at the resulting kludge. 
The program starts by looking for an 
action character in the second file 
control block. If it fails to find a 
match, as would be the case with a 
null parameter, it flips a switch be- 
fore testing the first file control 
block. Control is then transferred ac- 
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cording to the indicated action. 

Each action begins by making a 
call to evaluate the condition. This 
evaluation ends with a jump that 
complements the original condition 
according to a NOT condition and a 
NOT action request. This is definitely 
a kludge that capitalizes upon the 
parsing and setup done by the CCP. 
The file-name and file-type fields are 


normally padded with spaces (an 
even $20). The presence of an aster- 
isk (CP/M wildcard) changes the 
padding character to a question mark 
(an odd $3F). The code uses this 
even/odd fill character to blindly ob- 
tain the desired state. 

The two complementary labels, 
TRUE and FALSE, are truly illusion- 
ary. What began as a simple matter 


ARE YOU TRYING 





TO COMMUNICATE ? 


C programs can communicate with the world now through the power of 
The Greenleaf Comm Library. Now from the people who brought you The 
Greenleaf Functions General Library for C, comes this rich interrupt driven, 
ring-buffered asynchronous communications capability. 


Over 100 functions in C and assembler to facilitate communications at up to 
9600 baud. Up to eight ports at a time. ASCII or XMODEM. X-On/X-Off too. 
Hayes compatible modems controlled here. Safe too, bet you can’t exit your 
application with interrupts hot. Major applications around the world base 
their communicating applications on The Greenleaf Comm Library. Stop just 
trying and start really communicating. Get your copy of The Greenleaf Comm 
Library today. For all major C compilers, all models, all versions. For the 
IBM PC and just about any machine with MSDOS and an 8086. Comes with 
source code, extensive examples, demo programs, featuring C-Terminal, 


reference card and newsletter. No royalty. $185 


Other Products: The Greenleaf Functions General Library, over 220 
functions for total control of the IBM PC, with source. $185 for the compilers 
listed below. (See ordering instructions below). 


GREENLEAF 
COMM 


Specify compiler when ordering: Lattice, Microsoft, Computer Innovations, 


Mark Williams, or DeSmet. Add $7.00 for UPS Second Day Air (or $5.00 for 
ground). Texas residents add sales tax. Mastercard, VISA, check, or P.O. 


In stock, shipped same day. 


$185 
$185 
$349 
$395 
$475 


O General Libraries 
OComm Library 
O1CI186 Compiler 
O)Lattice C 

O Mark Williams 


PRICES ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. 


For Information: 


214/446-8641 


GREENLEAF 
SOFTWARE © 





2101 HICKORY DR. 
CARROLLTON, TX 75006 
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of going to one or the other, based 
upon the resulting condition, turned 


into quite a nightmare. At times it | 


seemed that neither one was right. 
Had they been ZIP and ZAP they 
might not have confused the issue so 
much. Debugging eventually reached 
a point where I would no longer look 
at them or at the remarks. It became, 
“Well, it’s BEQ now, so let’s try 
BNE” or “target is TRUE, so try 
FALSE!” It became worse regardless 
of what I tried. Finally, everything 
was wrong. That made it easy. TRUE 
became FALSE and FALSE became 
TRUE. I no longer care how it looks 
nor if it makes sense. It works and 
that is the end of it! 

A skip is performed by merely end- 
ing the program and returning to the 
CCP. The command is executed by 
invoking the CP/M-68K chain func- 
tion after replacing all semicolons 


with exclamation marks. 

There may be a more direct way to 
abort than the method used. Pro- 
grams, however, evolve according to 
a programmer’s knowledge and 
imagination. My 68000 and CP/M- 
68K knowledge is very limited, so 
that left only imagination. The CP/M 
User's Guide says that a submit 
statement contained in a submit file 
would transfer control if the refer- 
enced file exists. Otherwise the state- 
ment would be ignored and process- 
ing would resume with the next 
statement in the current file. 

The solution is obvious: invoke an 
existing, empty submit file—er voila! 
The actual code goes one step more. 
It creates a submit file with a single 
instruction that subsequently erases 
itself. The result may not be fast, but 
it does abort without having to keep 
more junk on the disk. 


Yes, the whole thing has the poten- 
tial to be fooled and foiled. But if you 
remain within the guidelines and don’t 
wander beyond its incomplete parsing 
and blind processing, it performs ex- 
actly as intended. The crazy little sub- 
mit file in Listing Two (page 82) may 
well be the world’s slowest ERAQ, but 
it does provide an example to demon- 
strate the performance of IF.68K.. 
The additional example in Listing 
Three (page 82) not only conditional- 
ly assembles and links the modules of 
an assembly project but also copies 
the changed source files from a RAM 
disk to floppy. Naturally, execution 
speed is improved by loading IF.68K 
from a RAM disk rather than floppy. 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 195. 





CP Y M-68K (Text begins on page 70) 


Listing One 


KEKE KEKE KEKE KK RK KEKE KEKE KEK KEKE KKK ERR EK KRE KKK KR REE KEK KEKE KKK KKK 


* 


* PROGRAM: IF.68K 
* 


SYNTAX: 


ACTION “IS 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
NOTE: 
* 

* 
* 


LAST UPDATE: 18 Mar 85 


PURPOSE: PROVIDE BASIC CONTROL FOR CP/M-68k SUBMIT FACILITY 
AUTHOR: Roger E. Donais TEL: (783) 765-0615 

7506 Republic Ct. 

Alexandria, VA 223086 

UPDATE LOG: 

Loe 19 Mar 85 --- Replaced non-working semi-colon with 
back-slash as command separator and 
added “Z check for empty file ...red 

eal 14 Nov 84 -~- Added semi-colon as muliple command 
separator cy eC 

boo Lisdul: 84 


RRR KEKE EEK KEKE KEE KKK EKER KK ER KKK KEKE KKK KEK KKK KERR EEK KKK KK KR KK 


IF <Filename> <Condition>.<Action> /$$$S$/ <statement> 


CONDITION IS: AMBIG - TO TEST FOR AMBIGIOUS FILESPEC 
EXIST - TO TEST FOR AN EXISTING FILE 
EMPTY - TO TEST FOR AN EMPTY FILE 
NULL - TO TEST FOR A NULL PARAMETER 


S - TO SKIP STATMENT PART OF COMMAND LINE 
Q - TO QUIT SUBMIT FILE PROCESS 
P - TO PAUSE FOR OPERATOR ASSISTANCE 


STATEMENT IS ANY VALID CP/M COMMAND 


AN ASTERISK (*) MAY BE APPENDED TO THE CONDITION 
AND/OR THE ACTION TO INDICATE NEGATION. 
WOULD THUS TRANSLATE "NOT AMBIGIOUS" AND Q* WOULD 


AMBIG* 


TRANSLATE -"DO NOT QUIT", 
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(Continued on page 74) 
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A FULL ff : ie dae offer 
C COMPILER FOR FREE CED 

TEXT EDITOR 7/3 
WITH EACH ECO-C88~%. 




















Ecosoft’s Eco-C88 C Compiler 


An unbeatable value! For $49.95 you set: - 8087 support using a single library. The 8087 is 


, . sensed at runtime and used if present. 
- AC compiler with all data types and operators (except e and used if present 


bit fields) - A standard library with over 200 functions (many of 
— . which are System V compatible f ater ability). 
- Fast executing code. Some common benchmark a. compatible for greater portability) 
results are: - Error messages in English - no cryptic numbers to 
look up. 
- A cc and “mini-make” (in source) that makes com- 
piling a snap. 


- ASM or OBJ output (for use with MSDOS linker). 


- Expanded user's 






S Manual. 


atyEx et | wt ff Le ee - Works with all IBM PC’s and clones using MSDOS 2.1 
be Contest Language, Feb.. 1985. heovcimnees with permission. or later. 











Other Eco-C Products 


CED Program Editor. $29.95 
A screen-oriented program text editor similar to the Turbo Pascal editor. 
You can create, compile and link the source file with CED. If there is an error, 


] SOO 952 0472 CED automatically reloads the source file and places the cursor on the 
offending section of code. CED supports editing multiple files (with 


— lie was - ex .. windows), macros, more than 50 editing commands and is configurable to 
your particular needs and preferences. An outstanding value. 












The ECOSOFT family of C re piiadlicts 
ORDER FORM 


OC Compiler $49.95 
OC Programming Guide $20.00 
CO Self-Study Guide $17.00 

0 Programmer's Library $20.00 
O Program Editor $29.95 —__— 
OC Library Source $10.00 


oe eee search C Self-Study Guide (Purdum, Que Corp.) $16.95 

Total* (Ind. res. add 5% tax) This new book is designed for the person that is learning 
*Please add $4.00 for shipping. Con their own. The book is filled with questions and 
Payment: VISA MC AE Check answers that most beginning C programmers have. It also 
Credit card expir. date ~ includes many sample programs that illustrate tips, traps 
Card # and techniques that may take years to discover otherwise. 
A perfect compliment to the Guide book. 





C Programming Guide, 2nd Ed. 

(Purdum, Que Corp.) $19.95 

This best seller walks you through the C language In an 
easy-to-read manner. All aspects of the language are 
covered, including many of the new ANSI Standards 
= er) suggestions. Many of the error messages issued by the 
“ge J Eco-C88 compiler reference page numbers in this text 
: ‘ "| making an ideal learning environment. 










































Name 

Address C Programmer’s Library 

City, state (Purdum, Leslie, Stegemoller, Que Corp.) $19.95 

7; - Phon This best seller is an intermediate level text designed to 
ip one 


show you how to write functions for your C library. The 
book contains many useful library additions, including an 
ISAM file handler, plus sections on advanced C topics. 








Ecosoft, Inc. 

6413 N. College Ave. 
Indianapolis, IN 46220 — 
aoe vee - 8:30-4:30 








ECOSOFT@INC. 


| TRADEMARKS: ECO-C&8, ECOSOFT: TURBO PASCAL, BORLAND INT'L. 
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CP. L M-68K (Listing continued, text begins on page 70) 
Listing One 


* * 
ig MULTIPLE COMMANDS MAY BE SEPARATED BY SEMI-COLONS, AN * 
* EXCLAIMATION MARK (!) OR END OF LINE ENDS STATEMENT. * 
* * 
* * 


REEKKKKEKKKEKKEKEKEEKEKEEKEKKEKE KKK KKK REKKEKKEKEKEKKEKKKKKKKKKKKKKE 


* CP/M FUNCTION DEFINITIONS 


bdos equ) 2 

fnABORT equ @ 

fnCINP equ l 

fnCOUT equ 2 

fnPRINT equ 9 

£nRESET equ 13 

fnOPEN equ 15 

fnCLOSE equ 16 

fnDELETE equ 19 

fnREAD equ 28 

fnWRITE equ 21 

fnCREATE equ 22 

£nDMA equ 26 

fnCHAIN equ 47 

- page 

* MISC CONSTANTS 

FCBl equ $5C lst CP/M File Control Block 
FCB2 equ $38 2nd CP/M File Control Block 
NAM1 equ FCB1+1 lst FCB File Name field 
NAM2 equ FCB2+1 2nd FCB File Name field 
TYP1l equ NAM1+8 lst FCB File Type field 

SY PY equ NAM2+8 2nd FCB File Type field 
BUFF equ $88 Default CP/M Buffer / Command Line 
SIZE equ SOF+FCB1 CP/M File Size (Sector Count) FOR FCBl 


RRR KKK EKER KKK KER KER ER KERR KEKE KKK EEK RE RK REE E RRR KEK RK EK EERE KKK 
* PHASE~1.:--+ PROCESS. “(P)AUSE),, (S)KIP° and (Q)UIT PARAMETERS 


MOVE.L 4(A7),A6 A6é Contains Base Page 
LEA 128(A6) ,A3 DEFAULT BUFFER 
MOVE.B TYP2(A6),D0 Get Action Character - 2nd FCB 
RETRY: 
CMP.B #'S',D® 
BEQ SKIP 
CMP.B #'Q',D® 
BEQ QOurrT 
CMP.B #'P',D®B 
BEQ PAUSE 
MOVE.B TYP1(A6),D0@ Get Action Character - lst FCB 
EOR #1,NULLFLG 
BNE RETRY 
ERROR: 
MOVE.L #MESSAGE,Al1 
ERROR]: 
MOVE.B (Al)+,D1 
BEQ ERROR2 
EXT - DL 
MOVE #f£nCOUT,D®# 
TRAP #bdos 
BRA ERRORI 
ERROR2: 
MOVE #f£nABORT,D@ 
TRAP #bdos 


NULLFLG: 
DC.W 8088 


-page 
RRR ERR RE RK ERR RK KERR KERR EEK KK KERR KKK KERR EEK KEKE EKER KERR 


* PHASE-2 --- PROCESS AMBIG, EXISTS, EMPTY and NULL PARAMETERS 


COMPARE: 


MOVE #4-1,d9 4 Character token count 
LEA NAM2(A6) ,AG Get Token address 
TST NULLFLG 
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BEQ Ll 
LEA NAM1(A6) ,A@ 


Las LSL.L #8,D2 Make room for next character 
MOVE.B (A@)+,D2 and load it 
DBRA D@,Ll Repeat for all 4-characters 
MOVE.L #TABLE,A@ Point to Function Table 
MOVE #4-1,D0 Number of Entries 
LZ: MOVE.L (A@)+,D1 Get Current Entry 
CMP.L 52,0) 
BEQ JUMP Exit on Match 
ADDA #4,A@ Else Step to Next Entry 
DBRA D6,L2 and Repeat for ALL Entries 
L3: ADDA #4,A7 Pop callers from stack 
BRA ERROR and abort 
JUMP: 
TST NULLFLG 
BEQ JMP1 EVERYTHING GOOD ON 2ND FCB 
TST DO 
BNE L3 AND ONLY NULL ON 1ST FCB 
JMP1: MOVE.L (A@),A@ JUMP TO FUNCTION 
JMP (A®) 


-page 
KEKE KEKEKKEEKEKKEKEKKEKEKRKEKRKKEKKKEKKKKKKKEKKKKEKEK KKK KKK KKEKKEEKER 
SKIP: * SKIP COMMAND TAIL IF CONDITION TRUE 

BSR COMPARE 

BNE CHAIN Execute Command Tail if FALSE 
EXIT: RTS and Ignore if TRUE 


KRKEKKEKEKEKKEKEKREKEREREKREKRRKRRKEKREKRRRERKEEKRKREKERKEKREKRRKEKREKRRERREERKKEEE 


QUIT: * QUIT (ABORT) SUBMIT IF CONDITION TRUE 
BSR COMPARE 





BNE CHAIN Ignore Command Tail if FALSE 
ABORT: 
MOVE.L #ABORTMSG,D1 
MOVE #f£fnPRINT,D& 
TRAP #bdos (Continued on next page) | 
“XTREE- 
has redefined my relationship with my hard drive.” 



















Ee ie tree See For Bae aie rece pee eae 


TREE simplifies file and directory handling by 


providing single keystroke commands to access, delete, 
rename, view, move, list or show all files within any and 


all directories. XTREE displays a graphic picture of your 
directory organization, instantly shows all the files in 
each directory or all files across all directories! Just 












agged 
e ° ° . . Files: 
point with the arrow keys (full scrolling and paging in all a : Bat | current Directory 
. : . 1985 
windows) and press a key. Your menu is clearly dis- : at sereeaT | Files: 2 
; DIR re ob al rigs Makedii Rename Show all files 
played at all times. Ti select directory “RETURN file comands Fi quit F2 help 
10 Reasons To Buy XTREE 
1. Shows ALL files or groups of files in ALL directories in one sorted display. 8. “If the program were not already subtitled The new standard for file and 
2. Copy, delete or rename multiple files in different directories in ONE operation. directory management, I would have described this wonderful new utility the 
3. Automatically var groups of files across several diskettes. Cae Sey — Phil Wiswell, PC Magazine 
4. NOT copy-protected. a 
9. Onl 9.95 plus $2 shipping. 
5. Demo available for only $5.00 includes reusable diskette case nly $4 pm PPS 


(holds up to 5 disks). 1 eres 
6. “I finally found a package that I use routinely to clean up my disks. | i sicaielag 2 
recommend it highly. It’s a steal at $49.95.” - 


— John Dvorak, Infoworld 













-634-5545 In CA (818) 990-3457 
7. “All XTREE operations execute very quickly. XTREE is a great utility for 10. To Order call 500-63 mes (818) 


getting an overall feel of your hard disk. And, if you feel the need to totally or send check or money order to: 
reorganize your hard disk, XTREE is unparalleled.” EXECUTIVE SYSTEMS, INC. 
— Garry Ray, PC Week 15300 Ventura Blvd., Suite 305, Sherman Oaks, CA 91403 
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CP Y M -68K (Listing continued, text begins on page 70) 


listing One 
MOVE #£nNRESET, DO 
TRAP #bdos Make Certain Drive A: is R/W 
MOVE.L #ABORTREC,D1 
MOVE #£nDMA,D@ Setup for File Output 
TRAP #bdos 
MOVE.L #ABORTFCB,D1 
MOVE #£nDELETE,D@ Delete any 'SSSABORT.SUB' File 
TRAP #bdos 
MOVE #£nNCREATE, D@ Then make a new one 
TRAP #bdos 
MOVE #f£nWRITE,D@ Fiil it 
TRAP #bdos 
MOVE #£fnCLOSE,D@ Close it 
TRAP #bdos 
MOVE.L #ABORTSUB,D1 and Chain to it 
BRA CHAINI 


KR KKK EKER KEKE KEKE KEKE REE KEKE KK KEK ERK EKER EERE REE KEKE ERR KEKKEKEKEKSE 
PAUSE: * PAUSE IF CONDITION TRUE 
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BSR COMPARE 

BNE CHAIN EXECUTE W/O STOPPING IF FALSE 
X93: 

MOVE.L #PROMPT,D1 

MOVE #f£nPRINT,D@ 

TRAP #bdos 

MOVE #£nCINP,D®@ 


68020 


Cross Assembler 


ace) ACH 


= /nstruction Set Fully Compatible with Motorola (Including 68000/08/ 
10 and 68020 Instructions) 
= User Defined Symbols Unique to 31 Characters 
= 32 Bit Addressing Supporting All Motorola Addressing Modes 
i Mk 11114) 
@ Structured Directives 
= Symbol Cross Reference Listings 
= Conditional Assembly Directives 
® Linking Loader 
®@ Motorola Standard Hexadecimal S-Record Format 
Oo) re aero mel TIL 
@ Librarian 
= Conversion and Download Utilities Supporting 
Mie ama ld ele e la] 


Now available: 68020 Symbolic Debugger 
In 4th quarter 85: 68020 C,Cross Compiler 


3930 Freedom Circle, Suite 101, Santa Clara. CA 95054 


Mailing Address: PO. Box 60337, Sunnyvale, CA 94088 


Zion 


(Continued on page 78) 


The Microtec 

PNY TO okts 

PR) aN A 

is a Microtec Research 

TU TE) Ra UL 

assembly language specified 

by Motorola Corporation for 

DE UT PA Tg 

eS a ETT A Sa 

used to assemble and link/load 

programs on a general purpose host 

computer, then download those programs 

MS Ca TY MR UTR Og ASO) B 

The Microtec ASM68K package includes 

macro assembler, linking loader, Tektronix 

AMUN AEM Lem Ae 

optional object module librarian is also avail- 

able which enhances the effectiveness of 
UML Ree 


Quality, Compatibility 

FORT ade UM Lieu eCON TOURS 
Microtec Research apart from others. 

Ue ER IO CCR g 

TT TT BM ERT youll a Lee 
Ra CRC AMC RUE 
800- 551-5554, 

In CA call (408) 733-2919. 
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De Smet C 


8086/8088 Development Package 


$109 


FULL DEVELOPMENT PACKAGE 


@ Full K&R C Compiler 

e@ Assembler, Linker & Librarian 

e Full Screen Editor 

@ Execution Profiler 

e@ Complete STDIO Library (>120 Func) 


Automatic DOS 1.X/2.X SUPPORT 
BOTH 8087 & S/W FLOATING POINT 
OVERLAYS 


OUTSTANDING PERFORMANCE 


e First and Second in AUG '83 BYTE 
benchmarks 










symBoLic vesucceR OH) 









e@ Examine & change variables by name 
using C expressions 

@ Flip between debug and display screen 

@ Display C source during execution 

@ Set multiple breakpoints by function or line 
number 
























DOS LINK SUPPORT 


$30 


@ Converts DeSmet.0 to DOS.OBJ Format 
e@ LINKs with DOS ASM 
@ Uses Lattice® naming conventions 


WARE 


CORPORATION 


P.O. Box C, Sunnyvale, CA 94087 
(408) 720-9696 
Street Address: 505 W. Olive, #767 (94086) Call for hrs. 


All orders shipped UPS surface on IBM format disks. Shipping included in price. California 
residents add sales tax. Canada shipping add $5, elsewhere add $15. Checks must be on US. 
Bank and in U.S. Dollars. Call 9am—1pm to CHARGE by VISA/MC/AMEX. 


Foreign Distributors: AFRICA, HI-TECH SVCS, Gaborone 4540 or Telex 2205BD LANGER @ 
ENGLAND: MLH Tech, 0606-891146 e@ JAPAN: JSE 03-486-7151 e@ 
SWEDEN: ESCORT DATA 08-87 41 48 or THESEUS KONSULT 08-23 61 60 

















Transform Your Programs 
edward k ream with 
—. CPP—C Preprocessor Plus 


Includes ALL features of the standard C preprocessor. 

e Define arbitrarily complex macros with #define command. 

e Include and nest files to any depth with #include command. 

¢ Conditionally include or exclude lines with #if, #ifdef and 
#ifndef commands. 

¢ Optional extra feature: Imbed formatting or other commands 
in your source code. (Lines starting with . or « are ignored.) 





Fast and flexible = BS 

e 30 times faster than the Preprocessor published in Dr. Dobb’s 
Journal. 

e Can be used for any language, including assembler. 

e Can be used as a stand-alone macro/include processor. 

e Code can be used as the lexical analyzer for parsers or 

assemblers. 





Complete® 

e You get complete SOURCE CODE in standard C 

e You get everything you need to use CPP immediately. 

e CPP is unconditionally guaranteed. If for any reason you are 
not satisfied with CPP, your money will be refunded promptly. 


Price: $50. Call or write today: 

Edward K. Ream 

1850 Summit Ave., Dept. DD 
Madison, WI 53705 


(608) 231-2952 


TO ORDER: Specify both the operating system (MS-DOS, CP/M 80 or CPM 68k) 
and the disk format (8 inch CP/M or the exact type of 5'4 inch disk). Send a check or 
money order for $50 ($60 for foreign orders). Foreign checks must be denominated in 
U.S. dollars drawn on a U.S. bank. Sorry, | do NOT accept phone, credit card or 
COD orders. Please do NOT send purchase orders unless a check in included. 





Circle no. 90 on reader service card. 


Australia: Wave-onic Associates, 6107 Wilson, W.A. 


TOTAL CONTROL 
LMI FORTH" 


































with 





For Programming Professionals: 


an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 


For Development: 


Interactive Forth-83 Interpreter/Compilers 

e 16-bit and 32-bit implementations 

Full screen editor and assembler 

Uses standard operating system files 

400 page manual written in plain English 

Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 


For Applications: Forth-83 Metacompiler 

e Unique table-driven multi-pass Forth compiler 

e Compiles compact ROMable or disk-based applications 
e Excellent error handling 

e Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 
Cross-compiles to 8080, Z-80, 8086, 68000, and 6502 
No license fee or royalty for compiled applications 


Support Services for registered users: 
e Technical Assistance Hotline 

@ Periodic newsletters and low-cost updates 
e Bulletin Board System 


Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 


= . 

Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 






Overseas Distributors. 
Germany: Forth-Systeme Angelika Flesch, D-7820 Titisee-Neustadt 


UK: System Science Ltd., London EC1A 9JX 
France: Micro-Sigma S.A.R.L., 75008 Paris 
Japan: Southern Pacific Ltd., Yokohama 220 
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CP. 7) M-68K (Listing continued, text begins on page 70) 


Listing One 
TRAP #bdos 
AND #S5F,D@ 
CMP.B #'O', DO 
BEQ ABORT 
CMP.B #'S', DO 
BEQ EXIT 
CMP.B #'C',DO 
BNE x9 

~page 

CHAIN: * CHAIN TO COMMAND TAIL 
ADD #BUFF,A6 
MOVE.B (A6)+,D6 
Ex? DG 

X53 DBRA D®,X6 
RTS 

X6: CMP.B #'/', (A6)+ 
BNE X5 
CMP.B #' ',-2(A6) 
BEQ X7 
CMP.B #9,-2(A6) 
BNE X5 

xs 
CMP.B #'S', (A6)+ 
BNE X5 
CMP.B #'S', (A6)+ 
BNE X5 
CMP.B #'/', (A6)+ 
BNE X5 
CMP.B #' ', (A6)+ 
BEQ X8 
CMP.B #9,-1(A6) 
BNE X5 

X8: 


Force upper case 
OuLlt-Gn "a" 
Skip on “s" 


And continue on "C" 


Point to command line 
Get command length 


Ignore Statement if Command 
Tail cannot be found 


Look for leading slash 


Insure that the previous 
character was either 
a space or tab 


The Original four dollar 
signs will appear 
as only two, so 
check for. 2: §."s 


Check for trailing slash 


And finally delimiting 
space or tab 


* So we got the command tail. Let's take a quick break 
* and repalce all semicolons with exclaimation marks. 


Y9: 


Y10: 


CHAINI: 


move.l A6,Al 
move D#,D1 
bra Y16 


move.b #'!',-1(Al1) 


cmp.b #'\', (Al)+ 


dbeq D1,Y18 
beq Y9 


SUB #1,A6 

ADD #1,D0 
MOVE.B DQG, (A6) 
MOVE.L A6,D1 


MOVE #f£nDMA,D®@ 
TRAP #bdos 

MOVE #f£nCHAIN,D@ 
TRAP #bdos 


copy pointer and 
character count, 
then begin search 


search until eol or '\! 
substitute & continue if '\! 


Step back to new len position 
adjust remaining command length 
and punch it 

Put the command tail in Dl 


Make addr in Dl 
the Default Buffer 


and Chain it 


RRR RE KEK KEK KEE EK KEE REE KERR KEKE EKER KKK KEK KKK KKK KEKE KKK KK KKK KKK 


OPEN: 


» page 
NULLI1: 
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MOVE.L A6,D1 


ADD.L #FCB1,D1 
MOVE #£nOPEN,D@ 
TRAP #bdos 

CMP.B  #SFF,D@ 
RTS 


CMP.B #$28,NAM1 (A6) 
BNE TRUE 





Base page to Dl 
and step to fcb 


Set flags on open file 


Test for no file name 


(Continued on page 80) 
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GRAF 3.0 


the complete 


BUSINESS and SCIENTIFIC 


printer graphics program 


5 49° 569% 
CP/M-80 MS-DOS / PC-DOS 


Hudget 


tr asspor tative 








@ display floating point data directly 
from spreadsheets, data bases, 
word processors, and 
programming languages (or the 
keyboard) in a wide variety of 
bar, pie, line, and scatter plots 

@ plot and group up to 6 different 
variables on a single graph, 
distinguished by up to 14 
different fill-in patterns and 8 
different point-plotting symbols 

@ menu driven operation supports 
automatic graph scaling, labeling, 
and legend creation 

@add up to 5 different-density grid 
lines, and choose from a wide 
variety of numerical labeling 
options 


Squere wave Appronimetion 





GRAF 2.0 Update Policy: Returning your 
original GRAF 2.0 disk to MSC entitles you 
to $20.00 off the above prices. 

Numeric Compressor Option: 8087 
support for the MS-DOS/PC-DOS version 
of GRAF 3.0 is available for an additional 
$20.00. 


TERMS: We ship via first class mail. The 
above prices include domestic shipping and 
handling. Orders outside USA require 
additional $5.00 for postage. N.Y. residents 
add state sales tex. When ordering you 
MUST state your computer and printer make 
and model. We support MS-DOS (PC-DOS) 
version 20 or later on computers with at 
least 192k RAM, and CP/M-80 version 2.2 or 
later on Z80 computers (other than modified 
Apples) sap CITE a TPA of at least 54k 
(requires 64k of RAM). Most soft-sector disk 
formats are available. (If you can read several 
formats, please send us a list.) GRAF 3.0 
works with any printer fully compatible with 
one of the following: Epson FX, RX, LX, Mx 
(with GRAFTRAX), or LQ-1500; C. Itoh 
Prowriter; NEC 8023A: Star Micronics Gemini 
10X. 15X, SG-10, SG-15; IBM Graphics Printer; 
Okidata 192, and earlier Okidata models 
equipped with the “IBM Plug ‘n’ Play” chips. 
(lf you have an Okidata printer, other than 
the 192, the Plug 'n’ Play chips are required!) 


Microcomputer 


SESE MSC Systems oe 


Consultants 


27 Forest Avenue 
Port Jefferson Station 
New York 11776-1820 


Circle no. 136 on reader service card. 


Time |S precious 





BD Software, Inc., maker of the original 
CP/M-80 C Language Development 


system, knows 





So the compilation, linkage and execution 
speeds of BDS C are the fastest available, even 
(especially!) on floppy-based systems. Just ask 
any user! With 15,000+ packages sold since 
1979, there are /ots of users... 


New! Ed Ream’s RED text editor has been 
integrated into the package, making BDS C a 
truly complete, self-contained C development 
system. 


Powerful original features: CDB symbolic 
source-level debugger, fully customizable 
library and run-time package (for convenient 
ROM-ing of code), XMODEM-compatible 
telecommunications package, and other sample 
applications. 


National C User’s Group provides direct access 
to the wealth of public-domain software written 
in BDS C, including text editors and formatters, 
BBS’s, assemblers, C compliers, games and 
much more. 


Complete package price: $150. 

All soft-sectored disk formats, plus Apple 

CP/M, available off-the-shelf. Shipping: free, by 
UPS, within USA for prepaid orders. Canada: $5. 
Other: $25. VISA, MC, COD, rush orders accepted. 


Wid 


DSofiware, inc. 


BD Software, Inc. 


P 0 Box 2368 <a 
Cambridge MA 02238 Peri 

&: 
617 +576 + 3828 | 


2 
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CP. 7 M -68K (Listing continued, text begins on page 70) 


"NOT CONDITION" 


Listing One 
FALSE: MOVE #8,D@ Start with FALSE 
BRA TOGGLE 
TRUE: MOVE #1,D6 Start with TRUE 
TOGGLE: EOR.B D#@,TYP2-1 (A6) TOGGLE 
MOVE.B TYP2-1(A6),D@ 
EOR.B D#@,TYP2+2 (A6) TOGGLE "NOT ACTION" 


BIST #0,TYP2+2 (A6) 
RTS 


FLAG RESULT 


KEKE KEKRKEKKE KEKE KEKE KEK KK KEKE KEKE KKK KERR KEKE KKK KEK KEKE KEKE EEKKEE 


NULL: * TEST FIRST FCB FOR NULL PARAMETER 
TST NULLFLG 

BEQ NULL1 

EOR.B D@#,TYP1-1(A6) 
MOVE.B TYP1-1(A6),D9 
EOR.B D@,TYP1+2(A6) 
BIST #0,TYP1+2(A6) 
RTS 


if FCB2 


else TOGGLE 


is in use the 
Condition is FCBl Filename 


using FCB1 Pad Characters 


KREKKEKEKEEKEKK EKER KEKE KEK EKER KEE KEK KEKE KEKE KEKE KEKE RREEKR KR KKK KE 


EMPTY: 


CMP.B #20,NAM1 (A6) 
BEQ FALSE 

BSR OPEN 

BEQ FALSE 

MOVEQ #f£nREAD,D@ 
TRAP #2 

ToL DO 


* TEST FIRST FCB FOR NULL, NON-EXISTANT OR EMPTY FILE 
NO FILE NAME IS EMPTY FILE 


NON-EXISTANT IS ALSO EMPTY 





Write 1/3 the code with 
CCSM, the Database Language! 
On ly $59. 95! o 


Now, you can dramatically increase your programming pro- 
ductivity, with CCSM, the Database Language. 

If you're writing programs in BASIC or PASCAL, you'll 
appreciate our full-screen editor. You'll also write about 1/3 
the amount of code, with this compact, productive language. 


Raw Power for Raw Data 


CCSM, the Database Language, developed by COMP Compu- 
ting, is a proprietary version of ANSI Standard MUMPS. 
MUMPS as a language has been refined and developed for the 
past 20 years, and is used in corporate America, and by count- 
less thousands around the world, who must manage large and 
complicated filing systems. 


With CCSM, the Database Language, you won't be restricted 
with line numbers, and different "dialects", as you are with 
BASIC. CCSM,the Database Language, will transport directly 
from your microcomputer, to a mini or mainframe WITHOUT 
MODIFICATION! 


CCSM, the Database Language, is also "type-less”. 
That means you can use variables "on the fly", without the 
tyranny of type declarations such as found in PASCAL. 


IBM and Macintosh are trademarks of internatonal Business Machines, and Apole. 






Program in 
BASIC or PASCAL 


B-Tree Record Structure, and All the Goodies 

CCSM, the Database Language, doesn't make you decide 
when to use "sequential" files, or "random" files...all records 
are stored in a B-Tree file for rapid access, and maximum flex- 
ibility. In terms of technical excellence, CCSM, the Database 
Language, utilizes virtual memory, so programs or local vari- 
ables can expand to the size of the disk. CCSM's sophistica- 
ted buffer-pooling provides faster performance than RAM-disk 
alternatives...8087 and BCD support, included! 

Stop Kludging, Start Computing! 

Programming and database solutions are as close as your 
phone. Call Guidance Software now, and get CCSM, the Data- 
base Language, for your 128K IBM, or IBM-compatible. 
(Macintosh version, coming) CCSM, the Database Language, 
sells for $59.95, and includes full documentation. For another 
$9.95, we'll send a "cookbook" of programs, and a second disk 
of popular subroutines and utilities. If you need bar charts and 
pie graphs, also order the graphics disk for $49.95. A multi- 
user version (up to 15) is available for $450. 

MasterCard, VISA, and AMEX accepted by phone. 


1-800-257-8052 


In Texas, 713-529-2576 
Guidance Software, PO Box 5362, Kingwood, TX 77325 


Circle no. 98 on reader service card. 
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BNE FALSE NO RECORD == EMPTY FILE 
CMP.B #S1A, (A3) 


BEQ FALSE “7% MUST’ BE EMPTY ASCII FILE 
BRA TRUE 


KK KKK KEK KEKE EKER KERR RE KER ERE REE KERR KERR EE KER ERE KR KERERERKEKEEEEEKE 
EXIST: * TEST FIRST FCB FOR EXISTING FILE 


BSR OPEN 
BNE FALSE File not Found Therefore Non-Existant 
BRA TRUE otherwise it's naturally there 


KKK KKK KR KK KEKE KERR REE KEKE KEE KEKE EEE RE KER ERE REE KERR RE KEKE EEREEK 
AMBIG: * TEST FIRST FCB FOR AMBIGIOUS NAME OR TYPE 


MOVE #11-1,D0 Test 8-Char NAME + 3-Char TYPE 
X4: 
CMP.B #'?',NAM1(A6,D8) 
DBEQ D@,xX4 
BNE TRUE Contains "?" Therefore Ambigious 
BRA FALSE 


.~page 
KKK KKK KER ERK KEK RK RE RKKRKERRREERER ERR EKER EKER RRR E RE RKEKKEREEE 
KEKKKKKKKKKKKKEKKKKK DATA STORAGE AREA BRRRKREKKKEKEKEKEKKERKER 


TABLE DC.B '‘AMBI' 


DC.L AMBIG KEK KKK EEK KKK KEKE ERE EKER REKREREKEEEE 
DC.B ‘EMPT' . NOTE * 
DC.L EMPTY * * 
DC. Bi EATS" * NULL MUST BE THE LAST TABLE % 
DC.L EXIST * ENTRY. SEE COMPARE SUBROUTINE * 
DC.B ‘NULL’ * ‘3 
DC.L NULL KEKE KK KEKE KEKE KERR KEKE KEK EEEEEEREKE 

ABORTSUB: 
DC.B 18,'A:$SSABORT',@ 

ABORTREC: 


DC.B 'ERA A:$$$$$SABORT.SUB',$D, 5A 


(Continued on next page) | 





Time and Money. 


We've just done something we know you'll like. Battery Backup, Too 
We've made the SemiDisk far more affordable than 


ever before. With price cuts over 25% for most of 
our product line. Even our new 2 megabyte units 
are included. 


At 0.7 amps per 2 megabytes, SemiDisk consumes 
far less power than the competition. And you don't 
have to worry if the lights go out. The battery 
backup option gives you 5-10 hours of data 

It’s Expandable protection during a blackout. Nobody else has this 


rtant feature. Why risk valuable data? 
SemiDisk Systems builds fast disk emulators for ee ee Ure. eee 


more microcomputers than anyone else. S-100, The Best News 

IBM-PC, Epson QX-10, TRS-80 Models II, 12, and 16. 512K 1Mbyte 2Mbyte 
You can start with as little as 512K bytes, and later  SemiDisk I, S-100 $695 $1395 

upgrade to 2 megabytes per board...at your own SemiDisk II, S-100 $995 $1995 
pace, as your needs expand. Up to 8 megabytes per [BM PC, XT, AT $595 $1795 
computer, using only four bus slots, max! Software Qx-10 $595 $1795 
drivers are available for CP/M 80, MS-DOS, ZDOS, _ TRS-80 II, 12, 16 $695 $1795 
TurboDOS, VALDOCS 2, and Cromix. SemiDisk Battery Backup Unit $150 $150 $150 


turns good computers into great computers. 


Someday you'll get a SemiDisk. 


SEFAIDISA Until then, you'll just have to....wait. 


Gey Ve 
SemiDisk Systems, Inc., P.O. Box GG, Beaverton, Oregon 97075 503-642-3100 


Call $03-646-5510 for CBBS/NW, 503-775-4838 for CBBS/PCS. and 503-649-8327 for CBBS/Aloha, all SemiDisk equipped computer bulletin boards ( 300/1200 baud) SemiDisk, SemiSpool trademarks of SemiDisk Systems. 
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CP. i M-68kK (Listing continued, text begins on page 70) 
Listing One 


DC.L ';SUBMIT FILE PROCESSING ABORTED',SD,S$A,S$1A 
ABORTFCB: 

DC.B 1,'SSSABORTSUB'! 

DC.B 9,0,0,0,9,9,0,0,0,9,0,0,0,9,0,0,9,0,0,0,0,8,0,2 
ABORTMSG 

DC..B SD, SA, *ABORTING. <i $* 


PROMPT: 
DC.B $7,$D,$A,$D,$A,'SUBMIT FILE PROCESSING PAUSED.',$D,$A,$D,$A 
DC.B $7 ,;3 PRESS: (Q) TO QUIT, (S) TO SKIP -or- (C) TO CONTINUE S$! 
MESSAGE: 


DCB. 7, 8D; SA, SA 
DC.B 'IF.68K Ver 1.2 CONDITIONAL SUBMIT COMMAND FORMA’: ',SD, SA, SA 
DC.B IF <filespec> AMBIGx.yx /S$$$$/ <command tail>',SD,SA 


' 
DC.B ' IF <filespec> EXISTx.yx /S$$S/ <command tail>',S$D,S$A 
DC.B ' IF <filespec> EMPTYx.yx /SS$S/ <command tail>',$D,SA 
DC.B ' IF <parameter> NULLx.yx /$$$$/ <command tail>',$D,S$A,SA 
DC.B ' WHERE: x is an optional "*" to indicate negation',SD,SA 
DES = and y is (Q)uit, (S)kip or (P)ause',SD,SA,S$A 
DC.B ' NOTE: Command tail may consist of multiple commands',S$D,SA 
Poa separated by backslashes (\) and ends at an',SD,SA 
a ce) exclamation mark (!) or physical end of line.',S$D,$A,SA 
DC.B ' EXAMPLE: IF A:JUNK.TYP /$$$S/ EMPTY.S CMD1\CMD2!CMD3',S$D,S$A,$A 
bC..B:** Neither CMD1l nor CMD2 will execute if A:JUNK.TYP',S$D,SA 
DC.B~’ is empty. Regardless, CMD3 will always execute,' 


DC.B $D,$A,$A,9 


END End Listing One 


Listing Two 
ERAQ.SUB - File Deletion with Query 


e FE eT ET a eT ee ae eet am ane i, eae et aa GR tiem ire eae pos a ea Ss et men ahi ew gid) esate Soe cb ekiiegs Sle ews wh Roe es 


IF ol EXISTS.P /SSSS/ ‘ERA SI 
if $2. NULL Oo \/SSS5/ 


SUBMIT ERAQ $2 $3 $4 $5 $6 $7 $8 $9 End Listing Two 
Listing Three 
ASM.SUB - Simple 68K Assemble and Link 


IF $1 NULL.S /S$$SS/ ERA $1.0 

IF FILE1.BAK EXISTS,S* /S$S$S$S$/ ERA FILE1.O\PIP B:=FILE1.S 
IF FILE2,BAK EXISTS.S* /S$$$$/ ERA FILE2.O\PIP B:=FILE2.S 
IF FILE3.BAK EXISTS.S* /S$$S$/ ERA FILE3.O\PIP B:=FILE3.S 
IF FILE4,BAK EXISTS,S* /$$$$/ FRA FILE4.O\PIP B:=FILE4.S 
ERA *. BAK 

IF FILE1.0 EXISTS.S /S$S$$S/ A:AS68 -S A: -L FILE1.S 

IF FILE2.0 EXISTS.S /S$S$$/ A:AS68 -S A: -L FILE1.S 

IF FILE3.0 EXISTS.S /SS$$$/ A:AS68 -S A: -L FILE1.S 

IF FILE4.0 EXISTS.S /S$$S$$/ A:AS68 -S A: -L FILE1.S 
A:LO68 -R FILE1.O FILE2.0 FILE3.0 FILE4.0O 


End Listings 
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FORTRAN 
PROGRAMMERS 


Discover why 
you should be using 
F77L 
the complete implementation 
of the ANSI FORTRAN 77 
Standard for the IBM PC and 
compatibles. 

If you are serious about your 
FORTRAN programming, you 
should be using F77L. 
$477 














—— 





1S we eas =) 





Lahey Computer 





> 


y—) Systems, Inc. 

31244 Palos Verdes Drive West, Suite 243 
Rancho Palos Verdes, California 90274 
(213) 541-1200 
Serving the FORTRAN community 
since 1969 












Circle no. 67 on reader service card. 


TOTAL HECALL 
mo 


FOR $104.95 


Now you can retrieve everything 
you entered during program 
development -- from version 
one thru all updates. SRMS 
does it with a complete 
source utility at an af- 
fordable price. 

You can retrieve specific 
versions of a program, 

make changes and rein- 
state the source while 
recording when, why and 
where changes were made. 


All versions are stored ina 

single library without dupii- 

cation of common code or Pa 

text -- saves disk space. You can also store comments 
specific to each version -- provides complete develop- 
ment history and documentation of the program. 
SRMS supports recall and edit of programs written in 
BASIC, FORTRAN, PASCAL (including Turbo Pascal), 
C and ASSEMBLY CODE. 

Requires MS or PC DOS, Version 2 and up with 128K 
and one disk (floppy or hard). 


~ bs 7048 Stratford Road 
Quilt Computing woodbury, MN 55125 
(612) 739-4650 
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BS W-Make. 


The Boston Software Works now brings a 
complete implementation of the Unix 
“make” facility to MS-DOS. No more recom- 
piling every file in sight after a small edit; no 
more wondering if you've really rebuilt every 
module affected by an edit. Just type “make” 
and BSW-Make automatically builds your 
product quickly, efficiently and correctly. 


BSW-Make supports: 


e most compilers and assemblers 
e MS-DOS or PC-DOS v2.00 or later 
e macros for parameterized builds 
e default rules 
e MS-DOS pathnames 
e any MS-DOS machine 
(192K minimum) 


Only $69.95 postpaid (Mass. residents add 5% sales tax) 
The Boston Software Works 


120 Fulton Street, Boston, MA 02109 
(617) 367-6846 
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LEARN PROLOG 





Interactively and Quickly with PROLOG-86 
Ideal for Artificial Intelligence and Prototyping 


|| Modify and write Expert Systems. 
Use the simple ‘‘Guess the animal’’ 
example on the Tutorial or use the 
sophisticated system for Section 318 of 
the US Tax Code written by one of the 
PROLOG-86 authors and published in 
the March, 1985 issue of Dr. Dobb’s 
Journal. 


_] Understand Natural Language 


Use the sample program that produces 
a dBase DISPLAY command as output. 


A complete Prolog Interpreter, Tutorial, and set of Sample Programs: 


Programming experience is not required, but a logical mind is. Serious development of ex- 





|| Write Symbolic Math or Abstract 
Problem Solving Applications 
This is a complete Prolog program to 
convert from Farenheit to Centigrade: 
f_to_c(C,F):- C is(F-32) *5/9. Planning 
programs and games are included to 
help you learn. 


|} BECOME FAMILIAR WITH 
PROLOG IN ONE EVENING. 





perimental systems is practical with PROLOG-86. | or 2 pages in Prolog is often equivalent to 10 


or 15 in C. 


RECENT IMPROVEMENTS: MSDOS commands, on-line help, load Editor. 


ONLY 
$125 
Full refund if not 


satisfied during — 
first 30 days. < 





AVAILABILITY: All MSDOS, PCDOS systems. 


Solution 


ystems ™ 





335-D Washington St. 
Norwell, Mass. 02061 
617-659-1571 


800-821-2492 
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LEARN LISP | 





Interactively and Write Realistic Programs 
with LISP-86 for Only $75 


A “COMMON LISP”’ compatible Tutorial, Interpreter, Debugging, and 


|) Start Easily and Quickly: 

A complete, modular tutoriai helps you 
learn LISP at your own pace. An in- 
tegrated, interactive environment provides 
all of the elements needed to enter, modify, 
analyze and debug programs. 


(| Natural Language, Expert Systems and 
Mailing List: 

Natural Language concepts are illustrated 
by a phone number retrieval program. 
Choose the best word processing program 
for you with the Expert System. File handl- 
ing and typical data processing work are 
demonstrated by a Mailing List program. 





Pretty Printer plus a Fast, Full Screen Editor, Samples and Help 


Use and Modify the ‘‘Which Word Processor?’’ program 
to learn about EXPERT SYSTEMS. 


|| Write Realistic Programs: 

Short examples and substantial programs of 
about 10 pages in length help you learn by 
modifying, studying and using the key con- 
cepts needed to write programs of 1000 
lines Or more. 


(| The ‘“‘COMMON LISP”? Standard: 
LISP-86 includes a 230+ function subset of 
the ‘“COMMON LISP”’ Standard. Use ex- 
tras like the MSDOS interface and graphics. 
Or use ‘‘strict compatibility’? to make pro- 
grams written in LISP-86, with no changes, 
work with other COMMON LISP systems 
like VAX LISP, GC/LISP or LISP 
Machine LISP. 


Runs on any MSDOS or PCDOS System: Not copy-protected, LISP-86 is available in just 
about any 3’’, 5’”’ or 8’’ format. PC compatibles can run LISP-86 with no installation pro- 
cedure. 192K memory and 1 floppy drive are the minimums required. 


ONLY 
$75 


Full refund if not 
satisfied during S 
first 30 days. 








For Beginners and Experienced Programmers 


Solution 
ystems " 


335-B Washington St. 
Norwell, Mass. 02061 
617-659-1571 


800-821-2492 
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ProDOS and the RAM Disk 





by Alfred Steele 


84 


288K of RAM that I use with Ap- 

ple’s CP/M, Pascal, and DOS 3.3. 
When I got my card more than two 
years ago, there was no ProDOS. Af- 
ter using ProDOS several times, I 
knew that I could not live without my 
RAM disk, so I decided to roll my 
own driver. I did several things to 
speed up the process of writing the 
driver. I used only 256K of the 288K 
memory on the Flashcard. The 
Flashcard uses six banks of memory. 
Four banks have 64K and the other 
two have only 16K each. I chose to 
use only the four 64K banks of mem- 
ory to save development time and re- 
duce code size. The loss of 32K of 
storage space is not a problem at this 
time. With the 256K of RAM in use, I 
get a RAM disk with 512 blocks of 
storage space. 


[ss a Synetix Flashcard with 


disk driver can be installed anywhere 
in memory, but only three options are 
given at run time. You may place the 
driver inside a free space in ProDOS 
at $FFOO. This space may only be 
free in ProDOS Version 1.01. Later 
versions of ProDOS may not support 
the driver at that address. You may 
also place the driver under the BASIC 
interpreter or at $300 hex page 3. 
The reason I advise you to install the 
driver inside of ProDOS is to support 
MousePaint, which uses page 3 of 
memory. Information on how to use 
the interpreter can be found in the 
ProDOS Technical Reference Man- 
ual and Beneath Apple ProDOS. 
Both books are really necessary. 

The code for the RAM-disk driver is 
not hard to follow. The RAM-disk 
driver code that will be relocated to 
any address starts at label SSDSTART 





Using a RAM disk speeds hi-res display by a factor 
of four. 





This is Version 1.3 of the RAM-disk 
driver (see Listing, page 85). Version 
1.0 was larger and faster but not relo- 
catable. It had to be loaded in page 3 
of memory. Version 1.1 fixed bugs in 
the installation program. Version 1.2 
is the first version inich the RAM-disk 
driver code is small enough to fit in- 
side of a free space in ProDOS. The 
program is completely relocatable 
anywhere in memory. One side effect 
of making the driver smaller and relo- 
catable is that it is slower than in the 
other versions. 

Version 1.3 fixes some errors in the 
installation code and adds more user 
prompts. This version of the RAM- 





Alfred Steele, Box 6296, APO NY 
09012 


and ends at ENDSSD. The routine is 
only 8E hex (142 decimal) bytes long. 
The main part of the installation code 
starts at label MAIN. This is a series 
of subroutines to check if the RAM 
disk has already been formatted. If 
this is a first time installation, the pro- 
gram title and the volume name of the 
RAM disk are displayed. The driver 
code is relocated to the address of 
your choice. The ProDOS active de- 
vices are listed and the count is updat- 
ed. The address of the device driver is 
placed in the vector table for Slot 5, 
Drive 1. The RAM-disk volume direc- 
tory information is written to the 
RAM disk and the volume bit map is 
written to disk. Information on the 
diskette volume can be found in Chap- 
ter 4 of Beneath Apple ProDOS and 
Appendix B of the ProDOS Technical 
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Reference Manual. 

The program has been written to be 
easy to use. If you try to install the 
driver more than once, the program 
will display a message that a driver 
has already been installed and abort. 
If the driver finds a formatted volume 
directory header on the RAM disk it 
will ask you if you want to clear it or 
not. If you type N, the program will 
install the driver but won't clear the 
RAM-disk directory. If you type Y, 
the program will install the driver and 
reformat the RAM disk. If any other 
driver, such as a hard disk driver, is 
already installed in the active device 
vector for Slot 5, Drive 1, the program 
will abort with an error message. 

Once the RAM-disk driver is in- 
stalled you can access the RAM disk 
using standard ProDOS commands 
and utilities. You can catalog the 
RAM disk using either the command 
CAT /RAM or CAT,S5,D1. If you 


want to copy files to the RAM disk 
use your copy of ProDOS FILER [or 
see the article ‘Adding a COPY 
Command to ProDOS” on page 54 of 
this issue—ed |. The system intergra- 
dation is clean and efficient and pro- 
vides super fast loading and storing of 
any type of file. 

One benchmark that I ran using 
the RAM disk consisted of loading 
high-resolution pictures to the screen. 
I made up a ProDOS test disk with a 
short BASIC program to load 16 dif- 
ferent hi-res pictures as fast as possi- 
ble. Using Apple’s Disk II it took 
about 35 seconds to display all 16 pic- 
tures. Using the same program and 
pictures loaded to the RAM disk it 
only took 8.3 seconds to display all 16 
pictures. The program runs about 4.2 
times faster using the RAM disk for 
an effective I/O transfer speed of 
15.9K per second vs. the Disk II 
transfer speed of 3.8K per second. 


For those who don’t want to type in 
more than 900 lines of code and com- 
ments, I will send you a copy of the 
source and object code on one Apple 
ProDOS disk for $15 postpaid any- 
where in the United States. Please 
send a money order because a person- 
al check is difficult to process in West 
Germany. To assemble the code, you 
need a copy of the ProDOS assem- 
bler/editor, or you can assemble the 
code under a DOS 3.3 assember and 
move the object code to a ProDOS 
disk. My address is: 


Alfred Steele 
Box 6296 
APO NY 09012 


DD] 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 196. 





R am Disk Lis ting (Text begins on page 84) 


SOURCE FILE #01 =)>/RAMDISK.SOURCE/SSD3 2000: 
0000: 1 KAKA KK KK KAKA KARA ROKR 2000: 
o0ooo: 2 * x 2000: 
0000: 3% FLASHCARD RAMDISK DRIVER a 2u00: 
0000: qx x 2000: DOA2 
0000: 5 * VERSION 1.3 x 2000: 
0000: oe JULY 1985 x 2000: 
oo0oo: 7 sR » 2000: 
0000: 8 x COPYRIGHT 1985 x 2000: BEOO 
0000: 9 * ALFRED STEELE x 2000: 
oo0oo0: 1@. * ™ 2000: 
oood: 11 * THIS PROCRAM MAY BE COPIED x 2000: 
0000: 12 * FOR PERSONAL, NON-PROFIT USE * 2000: coo0o 
0000: i x 2000: c010 
0000: 14 KK KKK KR K KKK KRKA KKK 2000: 
oood0: {+S - 2000: 
2000: 
0000: 16 LST ON 2000: FC58 
= ee NEXT OBJECT FILE NAME IS /RAMDISK.SOURCE/SSD3.0 2000: FDBE 
2000: 200 17 ORG $2000 2000: FDED 
2000: 1a 2000: FE3A 
2000: ry -* “FEXT STUFF 2000: 
2000: 2:00. % 2000: 
2000: 0000 2 ECOL EQU $00 2000: 
2000: 008D 220 CR EQU $8D 2000:4C 90 21 
2000: 7 a 2003: 
2000: 24 * ADDRESS OF SSD DRIVER 2003: 
2000: 25 * 2003: 
2000: 0000 26 TEMPZERO EQU $00 2003: 
2000: 0002 27 SSDCODE EQU $02 2003: 
2000: 28 * 20:03 : 
2000: 29 * MLI DISK DRIVE ZERO PAGE 2003: 
2000: 30. * 2003: 
2000: 0001 31 READ EQU $01 2003: 
2000: 0002 32 WRITE EQU $02 2003: 
2000: 0006 33 DIRBLOCKS EQU $06 2003: 
2000: 0008 34 SAVEBYTES EQU $08 2003: 
2000: 35. * 2003: 
2000: 36 * DEVICE DRIVER PARAMETERS 2003: 
2000: 37 x 2003: 
2000: 0042 38 COMMAND EQu $42 2003: 
2000: 0043 39 UNITNUMB~ EQU $43 2003: OOFD 
2000: 0044 40 BUFFADR EQU $44 2100: 
2000: 00464 41 BLOCKNUM- EQU $46 2100: 
2000: 0048 42 RAMBANK EQU $48 2100:D8 
2000: 004A 43 TEMP EQU S$4A 2 tO: * 
2000: 44 * 21.011; 
2000: 45 * LOW BYTE ADDRESS OF BLOCK 21 OAr: 
2000: 46 * NUMBERS IN SSD RAM DISK. 2101: 
2000: 47 * 24:0'1 -AD:..DS *C:0 
2000: 00D2 98 BLOCK1 EQu $D2 2104:A2 08 
2000: 00D3 49 BLOCK2 EQU $D3 2106, 85 42 
2000: ooDd 50 BLOCKS3 EQu $D4q4 2108:48 
2000: 00oDS5 51 BLOCK4 EQU $D5 2109:CA 
2000: 00D6 52 BLOCKS EQuU $Dé 210A:10 FA 2106 
2000: 00D7 §3 BLOCKS EQU $D7 210C: 
2000: 54 * 249C: 
2000: 55 * SSD ADDRESS FOR CARD IN SLOT 5 210C: 
2000: 36 1% Zt0OC: 
2000: coDO 57 SSDLOW EQU $c oDO Z1.0¢C : 
2000: coD1 58 SSDHI EQu $coD1 210C: 
2000: ER 210C: 
2000: BEFS5 60 GETBUFF EQU $BEFS 210C: 
2000: BFOO 61 MLI EQU $BFOO 210C: 
2000: BF31 62 DEVCNT EQU $BF31 Z10¢C:: 
2000: BF32 63 DEVLST EQu $BF32 210C: 
2000: BF1A 64 DEVADRS51 £EQuU $BFiA 210C: 
2000: 65 
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* VALUE OF DEVICE DRIVER POINTER 
* IF THE SLOT AND DRIVE IS NOT 
* BEING USED. 


* 


NODEV EQU $DO0A2 
x 


* BI GLOBAL PAGE ADDRESS 
x 

WARMDOS 
x 


EQU $BEO0 


* HARDWARE LOCATIONS 
* 


EQU 
EQU 


é 

? 

8 

9 

0 

1 

2 

3 

4 

3 

é 

7 

8 KEY $co00 
9 STROBE $c010 
Oo x 

1 * MONITOR SUBROUTINES 
> ik 

3 HOME EQu 
4 CROUT EQu 
S= COUT EQu 
é 
? 
8 
9 
0 
1 
2 
3 
4 
3 
é 
7 

8 
9 
0 
1 

2 
3 
4 
S 


EQU 


$FCS8 
$FDBE 
$FDED 


BELL SFF3A 


x 
KKK KKK RRA K ER KK KAKA RAR RRR 
* 


JMP MAIN 


x 
KAR KR KERR KARA RAR RK RK K RAR KK 


THIS. 1S THE SSD RAMDISK .ORIVER 
CODE THAT IS MOVED TO SSDCODE 
AT THE START OF THIS PROGRAM. 
THIS ROUTINE MUST START ON A 
PAGE BOUNDARY. I USE THE DUMMY 
DS STATEMENT BELOW SO THAT THE 
ROUTINE WILL START ON A PAGE 
BOUNDARY. IF YOU CHANGE ANY 
CODE ABOVE BE SURE TO ADJUST 
THE DS STATEMENT BEFORE YOU 
ASSEMBLE AND RUN THE PROGRAM. 


MMR RMR HEH RR HH 


DS sFD 


x 
x 


SSDSTART 
* 


CLD 


* SAVE ALL MLI ZERO PAGE LOC 
x PLUS TWO NEEDED BY DRIVER 
x 


6 

? 

8 

9 

Q 

i 

4 

3 

4 

3 LDA $coD3 
6 LDX #SAVEBYTES 
7 LDA 
8 PHA 
9 DEX 
0 

1 

2 

3 

4 

5 

é 

7 

8 

9 

Q 

1 

2 


COMMAND , xX 


yw 
~ 


BPL $1 


COMPUTE WHICH 64K BLOCK WE 
NEED TO READ OR WRITE TO. 

EACH 64K BLOCK OF RAM HAS 128 
PRODOS 512 BYTES BLOCKS IN IT. 
WE ARE ONLY USING THE 64K 
BANKS SO ONLY BLOCKS: 


BLOCK1 
BLOCK2 


BLOCKS 

BLOCKS 12 
BLOCKS 25 
BLOCKS 38 


BLOCK4 
BLOCKS 


eee ee eR Oe 
bowoo 
eee tate ak 


Ywne 


2 
z5 
8 
1 


- ws 


(Continued on next page) 
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R am Disk Lis f ing (Listing continued, text begins on page 84) 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


NN ll el el el ee ee ee 
YON NNNNDNNYNNNNDNNN KE eR Be Re eee eee Re Ree Re OOO OOOO OSCOCoOO 


AANFOMWMOHKRHDDALHNOCOOMANANFY FOBD Sama LWVOOCOMANNINANAANNANAANH 


139 -% 
134 * ARE BEING USED. WHEN WE KNOW 222C: 184 * 
135 * WHAT BANK WE WILL USE WE MOVE 212C:AS 42 185 LDA COMMAND 
136 * THAT BANKS LOW BYTE FOR THE 212E:85 4A 186 STA TEMP 
137 * SSD RAM CARD BANK ADDRESS INTO 2130:FO 48 224A. £87 BEQ EXIT 
138 * THE LOW-BYTE OF THE ZERO PAGE 2132: 188 * 
139 * POINTER RAMBANK. THE HI-BYTE 2432: 189 * SAVE COMMAND IN Y-REG AND 
1940 * IS SET TO #$C0O. IF BLOCKNUM+1 2132: 190 * MASK OUT BITS 1 AND 0. 
i141 * IS NOT ZERO WE NEED TO ACCESS 21 232- 191 * IF A-REG «= ZERO AFTER MASK 
142 * BLOCKS 256-383 OR 384-511. 233% 192 * THEN THIS IS A VALID READ 
tay * 20325 193 * OR WRITE COMMAND. 
"AS 47 144 COMPUTE LDA BLOCKNUM+1 2132: 194 * 
:DO oc 211C 145 BNE C2 2132:29 Fc 195 AND #SFC 
: 1qé * 2134:FO 06 £39024 9% BEQ SETBLOCK 
147 * BLOCKS 0-127 OR 128-255 2136. 197 * 
148 * 2146: 198 * ERROR COMMAND HANDLER 
AS 46 149 LDA BLOCKNUM 2136: 199 * INVALID COMMAND SENT 
:30 04 2118 150 BMI ci 2136: 200 x 
Lobe ® 2136:A9 27 201 LDA #$27 
152 * BLOCKS 0-127 2138:85 4A 202 STA TEMP 
is3 * 213A:D0 3E ZAPAK 203 BNE EXIT 
:A9 D2 154 LDA #BLOCKi1 24 39C: 204 * 
:DO OF 2126 155 BNE c4 213C: 205 * READ OR WRITE COMMAND. SET UP 
156 * 213C: 206 * BLOCK NUMBER AND BRANCH TO 
157 * BLOCKS 128-255 213C: 207 * READBYTE OR WRITEBYTE. 
eae aye: 309 ‘ EACH 64K BANK HOLDS 128 PRODOS 
c 1 7 « ct 
ae a 2126 et = op aaa 21563 210 * 512 BYTE BLOCKS. GET THE LOWER 
161 * RepS: os * 7 BITS nee Scr ONS hh 
x c _ = $3C: 12 * THIS WILL MULTPL H 
ee x Se ee re, oe eae ee g1.3¢ 3 213 * 0-127 TO 0-254 EVEN aah 
4 2t3c: 214 * ONLY. THIS ADJUSTED BLOCK 
30 a4 2124 a e: ae eee SSC: 215 * NUMBER IS USED AS THE HI-BYTE 
166 * 233C% 216 * OF THE ADDRESS IN THE 64K BANK 
167 * BLOCKS 256-383 2136: 217 * THE LOW-BYTE IS SET TO ZERO 
168 8 213C: 218 * AND INC FROM O TO SFF. 
:A9 D5 169 LDA #BLOCK4 213C: z2i9 *% 
-DO 02 $426 .-170 BNE C4 213C:AS 46 220 SETBLOCK LDA BLOCKNUM 
; 171% Pi 35 529° 7F 221 AND #$7F 
172 * BLOCKS 384-511 2140:0A 222 ASL 
173 * 2141:85 47 223 STA BLOCKNUM+1 
AY D6 174. °C3 LDA #BLOCKS 4244'3"6b-7Dt-.€0 224 STA SSDHI 
85 48 175 C4 STA RAMBANK 21496: 2235 & 
176 * 2146: 226 * MOVE COMMAND TO A-REG AND 
17? * SET UP HI-BYTE OF SSD CARD 2146: 227 * SET UP LOOP COUNT TO RUN 
: 178 * 2146: 228 * THRU READ OR WRITE TWICE. 
-A9 CO 179 LDA ¥$CO0 2146: 229 * EACH LOOP THRU READ OR WRITE 
:85 49 180 STA RAMBANK+1 2146: 230 * WILL MOVE 256 BYTES. 
181 * 2146: 234. 
182 * DECODE TYPE OF COMMAND FOR 2146:A0 00 232 LDY #0 
183 * RAM DISK DRIVER TO DO. 2148:84 46 233 STY BLOCKNUM 
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DateStamper™ keeps your CP/M computer up-to-date! 


° avoid erasing the wrong file e keep dated tax log of computer use 
e back-up files by date and time ¢ simplify disk housekeeping chores 


OPERATION: DateStamper extends CP/M 2.2 to automatically record date and time a file is created, read or 
modified. DateStamper reads the exact time from the real-time clock, if you have one; otherwise, it records the order in 
which you use files. Disks prepared for datestamping are fully compatible with standard CP/M. 
INSTALLATION: Default (relative-clock) mode is automatic. Configurable for any real-time clock, with pre- 
assembled code supplied for all popular models. Loads automatically at power-on. 


UTILITIES: Enhanced SuperDirectory ¢ Powerful, all-function DATSWEEP file- management program with date and 
time tagging ® Installation and configuration utilities 
PERFORMANCE: Automatic. Efficient. Versatile. Compatible. 


Requires CP/M 2.2. Uses less than 1K memory. Real-time clock is optional. 


When ordering please specify format 


8” SSSD, Kaypro, Osborne Formats ........... $49 


W . 2 > 
For other fornate ednuves 96-T PU Gd Se. rite or call for further information 





shipping and handing’ ves oe eee es $3 
California residents add 6% sales tax 
* 
MasterCard and Visa accepted Plu Perfect = stems 
Specialized versions of this and oth ft ilable for the K 
CP/M isa ractseod Eatistnail oC Diana? Reaeeiok, ie ae OR ISAT PEL WED OA eo at. 744 BSo-44 32 
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SINR RL Oe poo BEX. s 208 2182:E0 09 297 CPX  #SAVEBYTES+1 
214c: 235 2184:D0 FB 217E 298 BNE EX1 
214C: 236 * READ OR WRITE ONE 512 BYTE 2186: 299 * 
eran, 0 : PRODOS BLOCK. seer D2 CO aeb “ua $coD2 
A : 1 ook 1 c 
214C:8c DO CO 239 SSDI0 STY SSDLOW 218A:98 302 TYA 
ater 4A aay . STY TEMP 218B:FO 01 218E 303 BEQ EX2 
: 218D:38 304 SEC 
2151: 242 * CHECK A-REG TO SEE IF WE NEED 21BE. 305 * 
2151: 243 * TO DO A READ OR WRITE. 218E:60 306 EX2 RTS 
2151: 244 * ; 
2151: 245 * A-REG = $01 FOR READ si sauce ar 
a tex: te : A-REG = $02 FOR WRITE 2190: 30D KER KRKKKKRKKRKRAKEK KAKA ERARKERK 
2190: 310 * 
ats ee 246 * ROTATE A-REG THRU CARRY AND 2190: 311 * THIS IS THE MAIN SET OF JSR 
2251: 249 * CHECK IF CARRY SET OR CLEAR. bas 312 * STATEMENTS TO INSTALL AND 
2151: 250 * IF CARRY SET THEN READ. IF as ho. 3:3 8 INIT THE AAMDISK 
2191: 251 * CARRY CLEAR THEN WRITE. cies: Siete 
151: 252 * 
21S1:A5 42 253 LDA COMMAND 2190:20 50 22 315 MAIN re neheie 
2153:4A 254 LSR 2193:20 97 23 316 
2154:90 OB 2161 255 BCC WRITEBYTE 2196:20 4F 25 317 JSR TITLE 
2156: 256 * 2199:20 64 25 318 JSR DISPVOL 
2156:A0 00 257 READBYTE LDY #0 219C: 319 * 
2158:Bi 48 258 LDA (RAMBANK) ,Y 219C:20 Ba 21 320 JSR RELOCATE 
215A:A4 4A 259 LDY TEM 219F:20 Ci 21 321 JSR SETDEV 
215C:91 44 260 STA (BUFFADR),Y 21A2:20 D? 21 322 JSR SETVECTOR 
215E:18 261 CEC 21AS: 323 * 
215F:90 08 2169 262 BCC CONT 21A5: 324 * CHECK CLEAR DIRECTORY FLAG 
nih hs za itt the nOurines 70 Wkite h iNew 
7 «x “i 
stit.. acs x SSeS CEA Ae are eee 21A5: 327 * DIRECTORY TO THE RAMDISK AND 
: 21AS: 328 * SKIP THE ROUTINE TO WRITE A 
ee ee aa 3 Wht ORs Be Ene eee 21AS: 329 * NEW BITMAP TO THE RAMDISK. 
21AS: 330 * 
aes 4 at's ae <a 21AS:AD 4A 26 331 LDA CLEARDIR 
2169: 270 * ote te o9 21B3 aah BNE MNi 
2169: 271 * COMMON CODE TO INC TO NEXT LAA: . 
2169: 272 * BYTE TO READ OR WRITE 21AA: 334 * DO A NORMAL FIRST TIME INIT 
2169: 25. & Z1iAA: o35 * . ¥ 
2169:C8 274 CONT INY 21AA:20 E2 21 336 JSR CLEAREN 
216A:DO EO 214C 275 BNE SSD10 21AD:20 EF 21 337 cc. TTeRe 
216C: 276 * 21B0:20 35 22 338 I 
216C:E6 45 277 INC BUFFADR+1 oes a3? MN RTS 
Fi eeias 4 ph oe orate aunt 21B4: 31 OOO TO TOR RIK 
2172:8D Di Co 280 STA SSDHI 21B4: 342 * 
2175:CA 281 DEX 21B4: 343 * THIS ROUTINE IS USED TO MOVE 
gi7es 80 D4 s14c 382 BNE SSDIO 2184: ae . THE BBD RAN DISK ORIVER TO 
178: 283 * : : 
2178: aA 284 STY TEMP 21B4: 346 * THE ROUTINE IS COMPLETELY : 
217A: 285 * 2184: 347 * RELOCATABLE AND DOES NOT HAV 
2:1 7K: 286 * THIS PART OF THE ROUTINE IS 2184: 348 * TO BE ON A PAGE BOUNDARY. 
217A: 287 * ENTERED IF THE STATUS, READ 21B4: 349 * 
217A: 288 * OR WRITE 1/0 IS COMPLETE. 21B84:A0 00 350 RELOCATE LDY 
217A: 289 * 21B6:B9 00 21 351 Ri LDA SSDSTART,Y 
217A: 290 * SSD EXIT RETURN 21B9:91 02 352 STA (SSDCODE),Y 
217A: 291 * 21BB:C8 353 INY 
217A:A4 4A 292 EXIT LDY TEMP 21BC:CO 6F 354 CPY #ENDSSD-SSDSTART 
217C:A2 00 e593 LDX #0 21BE:DO Fé 21Bé 355 BNE Ri 
217E6:68 294 EX1 PLA 21C0:60 354 RTS 
217F:95 42 295 STA COMMAND , X S1Gr: 357 * 
2181:E8 296 INX 


(Continued on next page) 


WINDOWS FOR DATA“ 


Featuring One-Step Data Entry®* 








Now you can code fast, powerful data WINDOWS FOR DATA™ provides versatile, 
entry windows, improve user easy-to-use data entry functions that operate 
convenience — reduce input errors. within windows. 


CAPABILITIES INCLUDE: 


= Pop-up data entry windows 
= Multiple field types 


All the power, convenience and 
flexibility of the #1 window utility for 


the IBM PC. Our WINDOWS FOR C™ = Data validation functions 


combined with a professional window- = Field-specific & context-sensitive help 
based data entry system. = Lotus-style menu design 


= Single field entry option 
Complete control over screen display = Date, time and string utilities 


and entry of data within a convenient = Dynamic control of data-entry © 
flexible window environment. environment 


® User input to data-structure variables 


WINDOWS FOR C WINDOWS FOR DATA without intervening code. 


(Includes WINDOWS FOR C) 
PCDOS $ 195 $ 295 e sii httpd wae 
PC/XENIX $395 $ 595 os Richford, VT 05476 
UNIX CALL CALL 802-848-7738, ext. 31 


Full source available. Master Card & Visa accepted. Shipping $3.50. VT residents add 4% tax. 
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R am Disk Lis f ing (Listing continued, text begins on page 84) 


2 1G s 358 KRHA KR KKK K KKK KAKA KEK KKK ERK RK £2421 55:60 7E -2E 409 STA BUFPFER+39 
ocr. * 359 * 21 FA AF 0:2 9410 LDA #$02 
S2:CA 360 * THIS ROUTINE IS USED TO MAKE 21F6-: 6D .4F 26 411 STA WRITEBLOCK 
ECT: 361 * ROOM IN THE DEVICE LIST OF SVE? : 912 * 
SGT: 362 * ACTIVE DEVICES FOR THE RAM Z2i1F 9:20.00 “BE 913 JSR MLI 
21G% 363 * DISK DRIVE IDENTIFICATION. 2vlc:83 914 DB $81 
14CA.: 364 * 2Z1FD:4B 26 415 DW MLIWRITE 
SACLIAE 314. BFP 365 SETDEV LDX DEVCNT 2 1EF 9416 * 
21C4:E8 366 INX SREE.: 917 * CLEAR AND SET BLOCKS 
FiC§: 6E .31. BF 36? STX DEVCNT SUE: 418 * 3 THRU DIRBLOCKS OF 
2108: 368 * 21-FF: 419 *™ VOLUME DIRECTORY. WE HAVE TO 
2166:. BD: 3: BE 369 SD1 LDA DEVLST =f 7x 21 FE: 420 * SET UP THE LAST/NEXT BLOCK 
2.2CE 29D: (32. BE 370 STA DEVLST,X LEE: 421 * NUMBERS IN THE FIRST FOUR (4) 
2TEeE sca 371 DEX 21a FF: 422 * BYTES OF EACH BLOCK. 
2VGF :D0. Ff? 21C8 372 BNE SD1 21FF: 423 * 
2iGt: g5 & 21FF:A2 03 424 LDX #3 
21D1: 374 * STORE THE RAM DISK IN LIST 201-2: 26-26: 22 9425 CBi JSR CLEARBUFF 
2151 375 »* 2204: 926 * 
21D1:A9 50 S76 LDA #$50 2204:CA 427 DEX 
4iBis+8D 32. BF 20 Fe STA DEVLST 2205-85-37 2% 428 STX BUFFER 
21D6:60 378 RTS 2208:E8 429 INX 
20D? : 379 * 2209:E8 430 INX 
2UuD7: BBO KKK KR KR KR KR KK RK ORR OR 220A: 431 * 
Z.£D 7: - S84 us 2Z20A:EO0 06 432 CPX #DIRBLOCKS 
21 D7: 382 * INSTALL RAMDISK DRIVER VECTOR 220C:D0 07 2215 433 BNE CB2 
21D7: 383 * 2205: 434 * 
21D7 - AS, O02 384 SETVECTOR LDA SSDCODE 220E:A9 00 935 LDA #0 
21D9:8D 1A BF 385 STA DEVADRS51 $24.0 8.0 9392526 9436 STA BUFFER+2 
21 DE <AS: 03 386 LDA SSDCODE+1 22243-8803 2228 4937 BEQ CB3 
21DE:8D 18 BF 387 STA DEVADR51 +1 2215: 4368 * 
21£1:60 388 RTS 22802 SE 39, 2:6 437 CHEZ STX BUFFER+2 
213 2-: 389 * 2. 2-2:8:: 940 * 
BLES: 39 QO KKAKK KKK KKK ERE KER KKK RRR RK KR 2238: 941 * WRITE VOLUME DIRECTORY BLOCK 
2 he2: x 221-6; 442 * TO SSD RAM DISK. 
ZL E2: 392 * CLEAR BUFFER FROM END OF DISK oe eta a eG See 
21:22.: 393 * DATA TO END OF DISK BUFFER. : 
21.52 399 * 2249 3OE: OF 26 445 STXx WRITEBLOCK 
21E2:A0 00 395 CLEAREND LDY #0 2210: 9446 * 
21E5:99 62 26 397 CE STA  MIDBUFF,Y 221F:81 <: ae Se iGaiMe 
FALE 9 9 05°37 398 STA MIDBUFF+$100,¥Y 2220:4B 26 ee 
21EB:C8 399 INY ote be vee very 
eee tre is eras ee aoe =e 2223:E0 06 452 CPX #DIRBLOCKS 
21EF: 402 * 2225:D0 DA 2201 453 BNE CBi 
21 EF: GOD HR RK RR RK KK RK KEK KK RRR KKK Sang ts aaa ; RTS 
. x . 
See: aes * CALL MLI TO WRITE OUT THE 223273 :: axe KER KK RRR KKK KKK KKK RK KKK KK 
x 2228: x 
vee" as * CO Me eet ene Pe ee ree 2228: 4S8- ** €LEAR ENTIRE EFETLE BUEFER 
2Z1EF:A9 06 408 WRITEDIR LDA #DIRBLOCKS 2228: 1%) A 











Introducing SMK™, the 


SEIDL MAKE UTILITY 


SMK is an automatic software product generation utility for 
MS™-DOS. With SMK, you can update and track every module in 
your program. When changes are made to any module, SMK will 


C-PROGRAMMERS 
; | 2 : : recompile or reassemble changed modules and modules effected by 
|e Syste YT) | : the changes, and relink the modules in the proper order. SMK will 


work with any compiler, assembler and linker. 


: Utility : Libraries ) ; Advanced SMK Features Include: 


) opel ty oe inh “ms pt pm e Proprietary dependency algorithm analyzes a// dependencies 
All products are written entirely in K& RC. Source par rebuilding anyies. y P 


code included, No Royalties, Powerful & Portable. __ | SMK understands complicated dependencies involving nested 


BTree Library 75 OO : include files, source, and object code libraries. 


my A ee ee ee kl 





o High speed rations and sohnenual aocdss, — High-level dependency definition language makes setting up 

° Multiple keys per data file with up to 16 million records per file. dependencies easy. Supports parameterized macros, local 

e Duplicate keys, variable’length data’records: variables, constants, include files, command line parameters, 
, , : line and block comments. 

ae ae 4.0.0o Batch source code editor that allows automatic source file 

* Greatly speeds application development. cae : updating is included. 

° fas ona a of use of database manager with flexibility of program- Full pathname and directory support. 

° Supports multi key files and dynamic index definition. oe Typeset user’s manual and excellent error diagnostics make 

e Very easy to use. SMK easy to learn and easy to use. 

Ee be Gy OG SMK Introductory Price — 

e Patterned after the UNIX utility. Save 40% — $84.00 


e Works for programs written in every language. 
¢ Full macros, File name expansion and built in rules. 


Full Documentation and Example Programs Included. 


SMkK List Price (effective Jan. 86): $140.00 
(include $3.50 postage & handling) 


SEIDL COMPUTER ENGINEERING 








For more information cail or write: 1343 Stanbury Drive 1163 E. Ogden Ave., Suite 705-171 
Oakville, Ontario, Canada Naperville, IL 60540 
L6-2J55 = 
(416) 825-0903 (312) 983-5477 
(416) 844-2610 

Credit cards accepted. Dealer inquiries invited. 
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KKK KK ARR KARR RK RRR RRR KK KKK KKK 


THIS ROUTINE IS. USED TO CHECK 
FOR A DEVICE DRIVER ALREADY 
INSTALLED FOR SLOT AND DRIVE 
WE WANT TQ USE. I USE SLOTS 
DRIVE 1 FOR THE RAMDISK DRIVER 
IF THE ADDRESS AT SLOT S DRIVE 
1 DOES NOT POINT TO $DOA2 THE 
PROGRAM WILL ABORT WITH AN 
ERROR MESSAGE. IF WE FIND NO 
DRIVER INSTALL I READ BLOCK 2 
OF THE RAMDISK AND COMPARE IT 
WITH THE VOLUME DIRECTORY 
HEADER INFORMATION AT BUFFER. 
IF THE INFORMATION IS THE SAME 
A MESSACE [S PRINTED ASKING 
THE USER IF HE WANTS TO ZERO 
THE DIRECTORY ON THE RAMDISK 
OR NOT. IF WE WANT TO CLEAR 
THE DIRECTORY 1 SET CLEARDIR 
TO ZERO. IF WE DON'T WANT TO 


2228:A0 00 960 CLEARBUFF LDY #0 

Z22Z2A:98 461 TYA 

222B:99 S7 26 462° CL STA BUFFER,Y 

SESE 99: 53:2 -- 27 963 STA BUFFER+$100,Y 
$231.68 464 INY 

22 32:00. FE? 2228 965 BNE CLi 

2234:60 9466 RTS 

2235: 967 * 

29.355 GER KRKKKKKKKR ERK KKK KARE KKK 
S239°2 469 * 

42-355: 470 * SET ALL BLOCKS NOT USED IN 
£2:3:0-% 471 * RAM DISK TO HEX $FF TO SHOW 
2233: 472 * THAT THOSE BLOCKS ARE FREE. 
2:2 35.2 473 * SET FIRST BYTE TO SHOW THAT 
4235;- 474 * BLOCKS 0 THRU DIRBLOCKS ARE 
S24 s03¢ 473. *:.IN USE: 

eaas:.: 476 * 

2235:A9 O1 477 BITMAP LDA #601 

e637 8D (S724 478 STA BUFFER 
223A:A0 3F 479 LDY #63 

2Z23C:.AV FF 480 LDA #SFF 

Z23E: 481 * 

RO Se9 8S? (26 982 BM2 STA BUFFER,Y 
2241:88 483 DEY 

2242:D0O FA 223E 484 BNE BM2 

2244: 485 * 

2244:A9 06 986 LDA #DIRBLOCKS 
2296:8D GF 26 487 STA WRITEBLOCK 
22499: 488 * 

2249: 489 * WRITE OUT BIT MAP TO SSD 
2249: 490 * RAM DISK. 

2249: 491 * 

2299:20 00 BF 492 JSR MLI 

224C:81 493 DB $81 

224D:4B 26 994 DW MLIWRITE 

224F 495 * 

224F:60 996 RTS 

2250 497 

baa: 498 

2250: 999 

22 907 500 

2 o.a-0', $01 

2250: $:0:2 

2290: 503 

2250: 504 

225.0): 505 

24 58- 506 

2250: 507 

22 50:: 508 

2230: 509 

a2 on: 51.6 

425.0% S141 

2250: 5-12 

2250: S33 

2250: 514 

2230: si3S 

2200 * 516 

2250: S17 

22346: 518 

2250: 5219 


uN MRM MMR NR MN HM HR RR HM MN HE HM HH OH 


NWN NPN HHL 
PW KR KON NNN KY DN DY NNN NNYDN HN KRKN HN YPN NN NN NNW NHN NHN HN DHDN PHN WH 

NRONNNYNNNNNKYNNNYNNHNNNN NNN NN NNN NNN NN ND NHN NNN NNNN NNN NHN NN HPN 
VMVYVVYVVVVN VY VV VVVVVVY VVVAAAOH AH OH WHOA MONA AG ANAAA AAA AAAAG AACN 


0: 320 * CLEAR THE DIRECTORY I SET 
o= 5321 * CLEARDIR TO ONE. 
0: Se 22uk 
O:AD 1A BF $23 CHECKDEV LDA DEVADRS51 
3°C9-A2 $24 CMP #>NODEV 
9: D0 .7A 2201 a 20 BNE DEVABORT 
a: wee 28 
7:AD 1B BF 327 LDA DEVADRS51+1 
A:c9? DO $28 CMP # (NODEV 
C.D 7:3 22D1 529 BNE DEVABORT 
E.: 530 *« 
E-: $31 * LETS TRY AND READ THE RAM DISK 
EB: $32 * DIRECTORY AT BLOCK 2 AND 
£% 533 * COMP IT TO SOME OF THE BYTES 
E: 534 * AT ADDR BUFFER TO SEE IF THE 
E: 535 * RAMDISK MIGHT HAVE A FORMATTED 
E< 936 * DIRECTORY ON IT. 
= : $37 2 
E:A9 O1 538 LDA #READ 
O.: 83.; 4:2 $39 STA COMMAND 
os $40 * 
a 5341 * ADDRESS OF READ BUFFER 
ez 5342 * 
2:A9 82 343 LDA # >MIDBUFF 
4:83 44 544 STA BUFFADR 
6:A9 26 $45 LDA #<(MIDBUFF 
8:85 45 $46 STA BUFFADR+1 
A: $47. * 
A: 548 * BLOCK NUMBER TO READ 
A: $49 »* 
A: AY 02 550 LDA #$02 
©: 835. 46 a ot STA BLOCKNUM 
E:A9 00 5352 LDA #$00 
O:-8S 543 35:3 STA BLOCKNUM+1 
ae 5354 * 
2 5355 * READ THE RAMDISK USING DRIVER 
ve 5536 * AT SSDSTART IN THIS PROGRAM 
2: in a 
2-20-0022 558 JSR SSDSTART 
i 559 * 
S$: 5360 * WE WILL NOW ASSUME AT THERE 
S-: 561 * IS THE INFORMATION IN BLOCK 2 
33 362 * OF THE RAMDISK AT ADDRESS 
+ 563 * MIDBUFF. COMPARE THREE SETS OF 
2 59649 * BYTES TO SEE IF IT MATCHS A 
a 5963 * VOLUMN DIRECTORY HEADER BLOCK. 
5: 5366 * IF ANY BYTE DOES NOT MATCH 
3% 967 * THE ROUTINE JUMPS TO NODIR 
a 368 * IF ALL THREE SETS OF BYTES 
is 569 * MATCH I ASK USER IF HE WANTS 
a: 5370 * TO CLEAR THE DIR OR NOT. 
: DF ae. OW 
37 AZ. OO S02 LDX #$00 
2: BH. - 8:7) 26 373. COO LDA BUFFER,X 
A OB - B25 26 574 CMP MIDBUFF,xX 
D:DO 4c 22CB $725 BNE NODIR 


(Continued on next page) 





Sidekick for CP/M! 


Write-Hand-Man 


Desk Accessories for CP/M 
NEW! Now with automatic screen refresh! 


Suspend CP/M applications such as WordStar, dBase, and 
SuperCalc, with a single keystroke and look up phone 
numbers, edit a notepad, make appointments, view files and 
directories, communicate with other computers, and do 
simple arithmetic. Return to undisturbed application! All 
made possible by Write-Hand-Man. Ready to run after a 
simple terminal configuration! No installation required. 


Don’t be put down by 16 bit computer owners. Now any 
CP/M 2.2 machine can have the power of Sidekick. 


Bonus! User extendable! Add your own applications. 


$49.95 plus tax (California residents), shipping included! 
Volume and dealer discounts. 


Available on IBM 8 inch and Northstar 5 inch disks. Other 5 
inch formats available with a $5.00 handling charge. CP/M 2.2 
required; CP/M 3 not supported. 


COD or checks ok, no credit cards 
Poor Person Software 
3721 Starr King Circle 
Palo Alto, CA 94306 
tel 415-493-3735 
Write-Hand-Man trademark of Poor Person Software, CP/M trademark of Digital 


Research, Sidekick trademark of Borland International, dBase trademark of Ashton-Tate, WordStar 
trademark of Micropro, SuperCalc a trademark of Sorcim. 
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WI1ZaRO C 


Discover the powers of Wizard C 
for yourself! 


‘,.written by someone who has been in the business a 
while. This especially shows in the documentation.” 


Computer Language 
February, 1985 


‘“ Wizard's got the highest marks for support.” 


“The Wizard compiler had excellent diagnostics; it would 
be easier writing portable code with it than with any 
other compiler we tested.” 


Dr. Dobb’s Journal 
August, 1985 


Full Lint checkin}, six memory models, 8087 support, 
in-line assembly langZuaze, ROMable data support, full 
library source code. Cross-compilers are available on 


VAX/VMS and UNIX machines. 
(617) 641-2379 


WIZEARD - 


SYSTEMS SOFTWARE, INC. - 


Only $450. 


11 Willow Court 
Arlington, MA 02174 


ora 
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R am Disk Lis ting (Listing continued, text begins on page 84) 


227F: 576 *® 22C7:8D 4A 26 631 STA CLEARDIR 

227F:E8 $77 INX 22CA:60 632 RTS 

2280:E0 04 578 CPX #304 22CB: 633 * 

sea F3 2277 aan - BNE cdo 22¢8 634 * WE WANT TO CLEAR THE DIRECTORY 
< ot 

+ sai ce ia 635 ON THE RAMDISK SO SET FLAG FOR 

2286:BD 57 26 *a2° Cb4 LDA BUFFER, X 22 CB: 636 * CLEAR AND RETURN TO ROUTINE. 

2289:DD 82 26 583 CMP MIDBUFF,X 22CB: 637 * 

228C:DO 3D 22CB $84 BNE NODIR 22CB:A9 00 638 NODIR LDA #500 

228E:E8 586 INX 22D0:60 640 RTS 

228F:E0 25 587 CPX #$25 22D1: 641 * 

2291:D0 F3 2286 5388 BNE CD1 22D1: 642 * THIS PART OF THE ROUTINE IS 

2293. 589 * 22D1: 643 * ENTERED IF WE FIND A DEVICE 

2293:A2 27 590 LDX #$27 22D1: 644 * DRIVER ADDRESS THAT DOES NOT 

22953:BD 57 26 591 CD2 LDA BUFFER,X 22D1: 645 * POINT TO THE NO DEVICE DRIVER 

2298:DD 82 26 592 CMP MIDBUFF,X 22D: 646 * ACTIVE ADDRESS OR TO THE 

229B:DO 2E 22CB 593 BNE NODIR 22 Ot S 647 * ADDRESS WHERE WE WANT TO PUT 

229D. 594 * 22D1: 648 * OUR CODE. THERE COULD BE A 

229D:E8 595 INX 22D1: 649 * HARD DISK OR OTHER STORAGE 

229E:E0 28 596 CPX #$2B 22D1: 650 * DEVICE ALREADY INSTALL FOR 

22A0:D0 F3 2295 $97 BNE CcD2 22D1: 651 * THAT SLOT/DRIVE. 

eee. eS 2251.20 58 FC ies , BORT 

22A2: 599 * ASK USER IF HE WANT TO ZERO 1: 653 DEVABOR JSR HOME 

22A2: 600 * DIRECTORY OR NOT. IF THE USER 22D4:20 3A FF 6s4 JSR BELL 

22A2: 601 * WANTS TO ZERO THE DIRECTORY 2207: 655 * 

Z2A2: 602 * JUST CONTINUE WITH THE INSTALL 22D7:A0 00 656 LDY #0 

22A2: 603 * PROGRAM. IF THE USER DOES NOT 22D9:B9 4B 23 657 DA1 LDA ABORTMSG,Y 

22A2: 604 * WANT TO ZERO THE DIRECTORY 22DC:Cc? 00 658 CMP #EOL 

22A2: 605 * DO A JUMP TO THE DOS WARMSTART 22DE:FO 09 22E9 659 BEQ DA2 

22A2: 606 * 22E0: 660 * 

22A2:20 58 FC 607 JSR HOME 22£0:09 80 661 ORA #s80 

22A5:20 3A FF 608 JSR BELL 22E£2:20 ED FD 662 JSR COUT 

22A8: 609 * 22E5:-¢8 663 INY 

22A8:A0 00 610 LDY #0 22E6:4C DY 22 664 JMP DAI 

22AA:B9 EF 22 611 CD3 LDA DIRFOUND,Y 22E9: 665 * 

22AD.C9 00 612 CMP #EOL I2E9: 20 3A EF 666 DA2 JSR BELL 

22AF:FO O09 22BA 613 BEQ CcD4 22EC:4C O00 BE 667 JMP WARMDOS 

Zenit; 614 * 22E0 3 668 x 

22B1:09 80 615 ORA #$280 scee: ge RRA K RAK RAK RAR KKK RRA KR 
: : 670 * 

Stal ce geclilics iis eae Sa sane: i, * DIRECTORY FOUND MESSAGE 
. : é$ * 

2357.4C AA 22 ett JMP 8 =6CD3 22EF:8D 86D 8D 8D 673 DIRFOUND DFB CR. CR,CR,CR 

22BA:20 41 25 620 CD4 JSR CETKEY 22F3:86D 8D 8D 8D 674 DFB GR, CR SCR, CR 

22BD:Cc9 59 4:33 CMP #'y' S45 £80" 202 0, 2.0 675 ASC , 

22BF:FO OA 22CB 623 BEQ NODIR 230:3:74 49. 52 676 asc ‘DIRECTORY FOUND' 

T2C1: 62-30% 2312:8D 8D 677 DFB CR,CR 

22C3:D0O FS 22BA 625 BNE cD4 

4269: 626 * 

22CS: 62? * THE USER DOES NOT WANT TO 

. os ‘ CLEAR THE DIRECTORY. (Continued on page 92) 

22C5:A9 01 630 LDA #$01 





SUPER-CHARGE 


[ your directories T 
for only $39.95 


Say goodbye to path names and unleash the 
full power of DOS on your IBM Personal 
Computer. With SuperPATH™ from Martin 
Scot, you can run any program from:any 
directory, from any disk, anytime. 


SEE THE BIG PICTURE. 

Tired of playing hide and seek with your files? 
SuperPATH tells you where your files are, 
instantly. Anywhere on your disk. 


RP/M2"™ creates 


CP/M°2.2 compatible 


IBM PC 


1. Remove the 8088 
2. Install the NEC »PD70108 


Program your directories. To display just the 
files you want to see, in any format, sorted or 
double sorted. To set up your keyboard macros 
for each new directory you enter. To back up 
your files automatically when you leave a 
directory. 

Or, you can use SuperPATH’ s batch building 
option to create your own file management 
utilities. 


NO RISK. 
Comes with a 30 day money-back guarantee. 


CALL (206) 527-9605 to order SuperPATH. 


MARTIN SCOT 
4515 Purdue N.E. Seattle, WA 98105 
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3. Boot PC RP/M2 

MSDOS and CP/M 2.2 capability coexist in your IBM PC. 
The NEC »PD70108 CPU chip is a fast 8088 that can also 
execute 8080 machine code. PC RP/M2 is standard 2.2 
compatible RP/M2 with our CBIOS for the IBM PC. System 
disk with manual and NEC pPD70108 $129. Shipping $5 
($10 nonUS) = @ 


118 SW First St. - Box G 
Warrenton, OR 97146 
(503)861-1765 
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for the Apple® | [ 


Parallel Resonance with Damping 
BASIC 213 sec ISYS FORTH 20 sec 


Hydrogen 3p Orbital Cross-section 
BASIC 492 sec ISYS FORTH 39 sec 


ISYS FORTH is a FORTH-83 compiler 
designed especially for scientific and 


engineering applications. 


@ FASTEST — Sieve benchmark, 3.3 
seconds/pass. Compiles to machine 


language. 


We will do whatever 
it takes to make 
DSD86 the best 

available 
for the IBM PC. 
eee 





For starters, we have by far the best 
design, a superior base to build from. 
While the competition adds new 
“modes” for every feature, we have a 
pure, consistent and expandable 
design. While the competition forces 
you to accept their particular philosophy, 
we Offer maximized flexability. If you 
already have a debugger or are looking 
for your first, look no further because 
you cant do any better. We invite you to 
compare our debugger, DSD86, with 
any other on the market. 
Sa ee ONT OE 


& Recursive Command Macros & Files # 
® Bind Macros to any key @ 
® Multi-segment Symbol Support & 
® Symbolic Register & Stack Displays @ 
& User Customizeable Screen Layout & 
@ Superior Mode-less Design & 
® Source Window for MS Languages 
& User Writable Commands & Displays @ 
& Fast Screen Update # 
® Unique Breakpointing Facilities # 
# 30 Day Money Back Guarantee # 
Sea eg ee 
Call or write for our free report on truly 
advanced debugging technology which 
explains DSD86's design and why it is 
superior to the debugger you are 
currently using. 


ATTENTION! 


DDT, SID and 
ZSID USERS! 


Why are you wasting your time 
with outdated debugging tools 
when you could be using DSD80 
by Soft Advances? 

Ee Oy Nene ep ec EES Ue ER 
DSD80 is unmatched in the 
CP’/M-80 world and even makes 
most 16 bit PC programmers 
green with envy. 

ET NA eI ED RNS DAD 


&# Full Screen Display @ 

& DDT Command Compatibility a 
B Software In-Circuit Emulator @ 
® Superior Symbol Support # 

& Intel and Zilog Mnemonics & 

# 8080 and Z80 Support & 

& Single Step Subroutines @ 

@ ASCII and Binary String Searching m 
@ Port Input and Output @ 

& View Disk Files @ 

# Uses only 16k of TPA @ 

B Stack Display & 

& Highlighted Memory Display @ 
& Dual Monitor Support & 

# User Writeable Display @ 

# 30 Day Money Back Guarantee @ 


You can experience the power 
of DSD80 for only $125. Our 
money back guarantee will 


FLOATING POINT WITH TRANSCEN- 
DENTALS, single and double precision. 
16-BIT 65802 SUPPORT for execution 
speeds 50-100% faster than the above. 
FIXED POINT THEORY AND EXAMPLES 
(a 30-page chapter). D*/ for double 
precision fixed point. 

TURTLE AND CARTESIAN GRAPHICS 
with 70-column character set and dou- 


Take the DSD challenge: secure a 
money back guarantee with any of our 
competitors. Buy both debuggers and 

use them for a month. Send the one 
you like least back for a refund. 


protect you from overloads. 


Soft Advances 
P.O. Box 49473 
Austin, Texas 78765 


ble hires support. 

MACRO ASSEMBLER. 
DOS 3.3 FILE INTERFACE. 
FULL-SCREEN EDITOR. 


144-PAGE MANUAL WITH TUTORIAL. 


PRICE: $99, NO EXTRA CHARGES. 


ILLYES SYSTEMS 
PO Box 2516, Sta A 
Champaign, IL 61820 
Phone: 217/359-6039 


For any Apple ][ model, 48K or larger. 
Apple is a registered trademark of Apple 
Orel saloleicie 
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Only $69.95! 


Soft Advances 
P.O. Box 49473 
Austin, Texas 78765 
512-478-4763 


‘Programming for Productivity and Profit" 
Please include $4 shipping 
aa ae 
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912-478-4763 


‘Programming for Productivity and Profit" 


Please include $4 for shipping. DSD Is a 
trademark of Soft Advances; CP M, SID & 
ZSID are trademarks of Digital Research: 
Dealer inquires invited. Ask us about 
DSD86 for the IBM PC. 
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DUOMO NM NOOO rr rr dy ry yr FOWVDDODDWDDTDODOWDODDODOOVODMYNYUYS DHL HHWOWe 


GC 45° 41 


A: 43 679 ASC ‘CLEAR 

4° 8D 8D 680 DFB CR,CR 

6225210" 2G 5 20 “20 681 ASC : 

A:00 682 DFB EOL 

B: 683 *% 

B: 684 * ABORT MESSAGE 

B; 685 * 

B:8D 8D &D aD 686 ABORTMSG DFB GR CR; CR, CR 
F:8D 8D 8D 86D 687 DFB GR, CR ICR: CR 
a 20> 207220 752-0 688 ASC ’ 

THAEF 454346 “49 689 ASC ‘DEVICE 

6:8D 8D 690 DFB CR GR 

6232’ 0) 2:0. 20> 20 691 ASC ; 

we eorge Ae -47 692 ASC ‘PROGRAM 

28D. 6D &D 8p 693 DFB CR.,CR-CRACR 
6:00 694 DFB EOL 

eas 695 

q: 696 RRR IO tk 
7 697 -® 

7: 698 * THIS ROUTINE 1S USED TO ASK 
v2 699 * THE USER WHERE HE/SHE WOULD 
a 700 * LIKE TO MOVE THE RAMDISK 

-: 701 * DRIVER: CODE TO. THERE ARE 
c: 702. * THREE LOCATIONS: TO MOVE THE 
e 703% CODE TG:-OR <THE. (USER CAN .GULE 
De 7049 * 

a2 705° *% LOC A=" INSTBDE FPRODOS AT SF O:6:0 
7: 20:6. * LOC. 2: “BETWEEN THE BASTC 

a: 707 * INTERPRETER AND THE 
Ze 708 * Pibe \BUEEERS ». 

V2 203 #*~EOC 32 .KF-- $300 

73 710 * 

7.26. S6°" £6 711 WHERETO: JSR HOME 

A AG’ :06 712 LOY #0 

CC: BY -OF 24 713 WTO LDA WHEREMSCG,Y 

FE: 9° “0:0 714 CMP #EOL 

PFO. 69 23AC 745 BEQ WT1 

3: TUG WN 

3:09 80 wee ORA #580 

os 20. ED: FD 718 JSR COUT 

8:c8 TRS INY 

9.346. VE). 2:3 720 JMP WTO 

oo 21, % 

C220. 3a FE V22 WTA JSR BELL 

P.Z:0) VE5025 V2 JSR GETKEY 

25: ee - Sark 724 CMP #'1' 

4:FO-.15 23C8 420 BEQ WT2 

£.: tE6 * 

629.32 727 CMP #°2° 

8.>E 0. 29 23DA 728 BEQ WT3 

A: Cay, Us 

A G9 “Sis 730 CMP 3" 

€7F0..Z2K 23E8 Pat BEQ WT4 

E: 732) .*% 


lf you're aC programmer (or want to be one), we 
speak your language. Subscribe to The C Journal 
today, and start increasing your productivity right 
away. We give you information you can use on any 
machine — IBM PC™, UNIX™-based, Macintosh”, or 
CP/M™ — micro, mini, or mainframe. 


@ in-depth reviews and feature articles — C com- 
pilers, editors, interpreters, function libraries, 
and books. 


e hints and tips — help you work better and 
faster. 


e interviews — with software entrepreneurs that 
made it — by using C. 


@ news and rumors — from the ANSI standards 
committee and the industry. 


Limited Time Offer 


Join our thousands of subscribers at the Discount 
Rate of only $18 for a full year (regularly $28)! Call 
us now at (201) 989-0570 for faster service — don't 
miss a single issue of The C Journal! 


Please add $9 for overseas airmail. 
Trademarks — CP/M: Digital Research Inc. IBM PC: IBM 


Corp. Macintosh: Apple ComputerCorp. TheC Journal: 
InfoPro Systems. UNIX: AT&T Bell Labs. 


DIRECTORY 2." 


ABORT' 


Decmation’s 


, 
SLize ohGHiree 


OR onte ' 


DRIVER ALREADY INSTALLED' 


(Continued on page 94) 


PC Z80 CO-PROCESSOR 


CP/M* EMULATOR 


The Blue Lightnin’ 
blows the competition 
away with its 9 MHZ 
clock speed, 128K byte memory and optimized |/O. 


With the Blue Lightnin’ your PC or AT compatible 
can run CP/M-80 software, or optionally, Intel 
development system software (ISIS). We include a 
debugger and a quality Z80 assembler and linker. 
You also get an Xmodem-compatible serial commu- 
nications program, in both CP/M and MS-DOS 
versions. A version for Intel development systems 
is also available. 

We have plug-in cards for VAX** and PDP-11** to 
run CP/M-80 or MS-DOS software. 


The ideal tool for microprocessor software develop- 
ment or any CP/M application. 


The Blue Lightnin’ is distributed by: 
TSI 1897 Garden Ave., Eugene, OR 97403 
1-800-874-2288 


The Blue Lightnin’ is manufactured by: 
(408) 980-1678 













Telex 171596 


Deemation A AAA COM SUVL 


2065 Martin Avenue, #110 Santa Clara, California 95050 


*CP/M is a registered trademark of Digital Research, Inc. 
**VAX and PDP-11 are trademarks of the Digital Equipment Corporation, 
with whom Demation is not connected. 


es 


InfoPro Systems 
3108 Route 10 . 


Denville, NJ 07834 
(201) 989-0570 
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Mac lutor 


The Macintosh Programming Journal 


",..the anticipation of finally 

being able to associate myself 

with a first rate tech journal 

leaves me almost 'codeless'!" -R. Onzo 


"Ah! Eureka! This is the 
publication that I've been looking 
for. It's not too glossy, slick 

or condescending. It's meat, fact, 
it's wonderful!" - Rick Barrett 


The number one technical journal for Macintosh 
software development in C, assembly, Pascal, Basic, 
Forth, with NEON, Modula-2, APL and Lisp. 

$24 per year US, $30 for Canada and $36 

overseas. Find out why we're number 1 today! 


Sample: (714) 579-7700 
P.O. Box 846, Placentia, CA. 92670 
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RUN CP/M 80 ON IBM 
AE 


Now your IBM PC or compatible can access the vast library of CPM/80-2.2 soft- 
ware titles, and run them at lightning speed! Our revolutionary MICRUN/CPM 
non-emulating interface executes CP/M software on PC's by utilizing the power of 
NEC’s newest microprocessor, the V-20. The V-20/30 chip replaces your PC 
resident 8088 or 8086 microprocessor chip, thereby providing 8 bit processing 
ability and actually improving it’s 16 bit performance by up to 50%. If your PC is 
not already equipped with the NEC V-20 there is no problem. Simply purchase our 
MICRUNI/CPM software package, and we will provide you with the V-20 chip for 
only $45 dollars. 


Features 


* Incredibly fast-up to 8 MHz * Includes disk transfer utility for 

* Ability to run CPM programs reading, writing, and formatting up 
in color to 70 different CP/M and MS-DOS 

* Cross sub-directory operations disks. 

* No expensive co-processor * 16 logical/physical drives 
board req. * Includes RS232 communications 

* Not an emulator program for transferring software to 

or from CPM system to PC. 


Supports 


Osborne*Kaypro*Zenith H-19*Televideo*Radio Shack*ADM3A*VT-52* 
Visual 210 adds Viewpoint*Hazeltine Espirit & 1510* Plus many more 


ONLY $99.95 


Included in the above price: Interface software, disk transfer utility program, 
RS232 communications program, complete documentation. Not included is the 
NEC V-20 microprocessor chip which is available at a price of only $45 dollars. 


1-800-637-7226 ca 


Orders only. 


Micro Interfaces Corporation 
6824 N.W. 169th Street 
Hialeah, Florida 33015 

(305) 823-8088 


Dealer Inquiries Invited 
Trademarks: CP/M (Digital Research, Inc.), 1BM (IBM Corp.), 
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ST-FORTH $49 


For your IBM PC/XT/AT/PCjr 


A complete FORTH development system for 
beginners or experienced users 
= 100% FORTH-83 Standard 


= ALL source code provided 
Written entirely in FORTH & FORTH assembler 


= Powerful, fast, easy-to-use editor 
Search, locate source, edit errors 


# Extensive MS-DOS/PC-DOS interface 
sequential & random files 


# Many more useful utilities 


# Supplied as MS-DOS COM file 
Compatible with all versions of DOS 


# 148-page User’s Manual 
# Unconditional money-back guarantee 


Beginner's pkg based on Leo Brodie's Starting FORTH 
available 


Call or write for brochure and order form. 


oo Sunset 1954 Menalto Ave. 
Menlo Park, CA 94025 
Ca CCHNOIOGY 415) 325.3680 
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d/MULTI 


a dBASE 
or 
TurboDOS 


TRUE File and Record Locking as easy as 
d-BASE-II. Unlimited users can perform the 
magic of dBASE in the program or 
interactive mode 


* TurboDOS 1.3 or 1.4 

* No Peeks or Pokes 

* System Date and Time Functions 

* Printspooler Controls up to 16 printers 





Martian Technologies... 
-CREATEing Multi-users from 
Single-users around the world 


CALL FOR DETAILS 


Martian Technologies 
8348 Center Dr., Ste.-F, La Mesa, CA 92041 
(619) 464-2924 
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R am Disk Lis ting (Listing continued, text begins on page 84) 


BE:Cc? $1 7 33 CMP #'Q' 

CoO :D0° EA 23AC 734 BNE WT1 

Cz 73S 3 

Geo: 20 (S58. FC 736 JSR HOME 
Cee Ocsa sEe 737 JSR BELL 
Ce-4€ - 00. 7BE 738 JMP WARMDOS 
GB: 7397 &«& 

CB: 740 * MOVE CODE INSIDE PRODOS 
CB: 741 =* 

CB:A9 00 742 WT2 LDA #600 

GD 85 0:2 743 STA SSDCODE 
CF:A9 FF 744 LDA SFE 

BA «68'S: 03 745 STA SSDCODE+1 
D3:A 81 co 746 LDA $CO081 
Dé:AD 81 CO 747 LDA $coO81 
DY:60 748 RTS 

DA: 749 * 

DA: 730 * MOVE CODE UNDER BI 

DA: TL ® 

DA:A9 01 752° WT3 LDA #1 

DC:20 FS BE 73:3 JSR GETBUFF 
DE: BO: .£0 23F1 754 BcS BUFFERROR 
E11: tons 

Ba 76.5: O13 756 STA SSDCODE+1 
E3:A9 00 75:7 LDA #500 

BS :635 02 758 STA SSDCODE 
E7:60 799 RTS 

Es: 760 * 

E8: 761 *® MOVE CODE TO $300 

ES : 762 * 

E8:A9 00 763 WT4 LDA #300 
EA:85S 02 764 STA SSDCODE 
EC: AY 03 765 LDA #603 

Ee: 35-03 766 STA SSDCODE+1 
FO: 60 767 RTS 

£2: 768 * 

F.i:: 769 * ERROR GETTING BUFFER FROM SYS 
Fa: TIO ® 

Fasce0 JA FF 771 BUFFERROR JSR BELL 
e4.260-°38.. EC 7am JSR HOME 
F7:A0 00 773 LDY #0 

F9:B9 B3 24 774 BEO LDA NOBUFF,Y 
FC:c9 00 7-75 CMP #EOL 

FE: FO -09 2409 776 BEQ BE1 

00: Ta Te 

00:09 860 778 ORA #$80 
02°20 ED ED 779 JSR COUT 
05:c8 780 INY 

04: 4¢ FY -.23 781 JMP BEO 

09: 782 * 

69:20... 3a: TF: 7:83. BE’ JSR BELL 
0c:4C 00 BE 784 JMP WARMDOS 
OF: 785 * 

OF: 786 KRARKKRRARKKRKARRR KEKE REAR 


The 
LIBRARIAN 


Inc. 


has taken the drudgery out of generating plots. These 
libraries contain the most complete collection of plot- 
ting subroutines you can buy. Each collection places 
over 40 routines (in FORTRAN or C language”) at your 
fingertips. The library makes it easy to: 


e plot semi-log and log-log graphs 

e draw arcs and circles 

e scale charts to exact sizes 

e label text in different sizes, directions, 
and orientations 

e design bar charts and pie charts 

e and much more 


Each package includes source code and a compre- 
hensive manual. 


Operating Systems: MS-DOS and PC-DOS 


Plotters Supported: Houston Instruments 
Hewlett-Packard 
HPGL compatibles 


We are constantly testing our libraries on different 
computers and with different compliers including: 
Microsoft FORTRAN, DR FORTRAN-77, RM FORTRAN, 
Lahey F77L, Cl-C86™, and MWC 86. Specify compiler 
when ordering. 


Price: $295.00 


For More Information: The Librarian, Inc. 
40435 Greenbough, #110 
Stafford, TX 7747 
(713) 499-7662 or 4941-2088 


“We're developing libraries in BASIC and Pascal, too! 
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The Best 


paves Awenbiee DUCA /(M 


In The World SSSSSOSSSSSSSSSSSSSSGSClececeeaseecsssssesesecese 























Who says so? ORCA/M AAA 
Among others, Peelings // Merlin A+ 
magazine! When they did a S-C Macro Assembler At+ 


comparative study of Apple // The Assembler (Micro Sparc) A 
assemblers, here’s how they Lisa 2.5 B+ 
rated them: EdASM B 





ORCA/M 4.0 TBSVSFCSCADSCSUOSSCRAASESSCHSHSHSASSROVSSSRASBERSSa 
is also the only assembler to fully support the new 65816 CPU - earning 
it the endorsement of the Western Design Center, designers of the 


65C02, 65802 and 65816! 


ORCA/M 4.0 is a complete development environment for assembly 
language programming for ProDOS. The system includes the Assembler 
with full macro capabilities, Link Editor, Command Processor, Full 
Screen Text Editor, Disassembler, many utilities, Macro and Subrou- 
tine Libraries, (2, 4¢ and 8 byte integer mathematics and full graphics 
libraries, including double hi-res) and 6502, 65C0O2, 65802 and 65816 


support! $79.95 


Small-C Com pi le [F secsesessecssesssassnsscesesecesesesessess 


All full C language statements are supported, along with most operators 
and short and long integers. Supports P-code for space efficiency and 
native code for speed. Complete source code for the compiler is in- 


cluded. (Requires ORCA/M 4.0) $39.95 


Support Programs Seccvcessnaseessessesssscecsesecesasesess 


MONG - A powerful Symbolic Debugger with disassembler, mini-assembler, step 
and trace, and much more for debugging assembly language programs. $29.95 


ORCA O/S Source - Includes the source code for the ORCA/M operating 
system, subroutine libraries and XREF (global cross reference) utility. $39.95 


Floating Point Libraries - Supports IEEE single and double precision floating 
point formats. Includes transcendental functions and complete source code. 


$39.95 


New Mexico residents 
add 4.375% 
Free shipping in 
U.S. and Canada 


es S -6GSeceeseecesccsseceessacecesesece 
Seccsccscsccesccssceccccsscccecsecsssesceccssesecessessscccccsseeseeee 


«ve Byte Works inc. 


8000 Wagon Mound Dr. NW 
Albuquerque, NM 87120 
(505) 898-8183 
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UNIX/XENIX COMPATIBILITY! 


¢ iD 


C FUNCTION LIBRARY 


C-LIB incorporates over 200 routines to extend the 
capabilities of C on the IBM PC. Versions are available for 
the Lattice, Microsoft, and DeSmet (C Ware) C compilers. All 
libraries are compatible with PC-DOS 2.0+ operating 
systems. 


Featuring: 


UNIX-Compatible “CURSES” Screen/Window 
Processing Library 

Buffered, Interrupt-driven, Asynchronous 
Communications Library 

Powerful String Functions 

8087/Microsoft Floating Point Conversion 


C-LIB SOFTWARE AND MANUAL PACKAGE $195. 


Please call or write for additional information. 
DEMO DISKETTE AVAILABLE, please include $5. 


VANCE info systems 


2818 clay street e san francisco, ca 94115 © (415) 922-6539 


IBM & PC-DOS are trademarks of International Business Machines Corp. Lattice is a 
trademark of Lattice Inc. Xenix & Microsoft C are trademarks of Microsoft Inc. UNIX is 
a trademark of Bell Lats. C-LIB is a trademark of VANCE info systems. 
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SERIOUS SOFTWARE 


FOR 
SERIOUS DEVELOPERS 


FABS PLUS 


(B-Tree Structure) Rapid access and 
maintenance of very large files with millions of 
records. Extremely fast on unlimited number of 
keys. Index utility provides protection from cor- 
rupted index files. Can be used on files as large 
aS your system can hold. 


RETAIL PRICE $195.00 


Network versions of FABS PLUS also available 
for PC-DOS 3.XX and Novell Netware. 


RETAIL PRICE $395.00 


AUTOSORT 


Sort/Merge subsystem for very large files. In 
Stand-alone or callable sub-routine, extremely 
fast. Sorts files as large as the operating system 
and workspace will allow. 


RETAIL PRICE $150.00 


Versions available for FABS and AUTOSORT: 
CPM-80, CP/M-86, MP/M-11, MS-DOS, PC-DOS. 
MICROSOFT BASIC(S), COBOL, FORTRAN, PASCAL. 
PL/1, CBASIC, CB80, CB86, CBASIC86, LATTICE C 





DB-FABS 


Data, Screen, Report Manager: Can be used in 
Stand-alone and run-time modes. Creates files 
and forms for the management and access of 
data. Report and screen handler to generate 
listings. B-Tree indexing and high speed sort 


Capabilities. 
RETAIL PRICE $295.00 
Version of DB-FABS available for Novell Netware 


RETAIL PRICE $395.00 


COMPUTER CONTROL SYSTEMS, INC. 
ROUTE 3, BOX 168, LAKE CITY, FL 32055 (904) 752-0912 
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R alm Disk Lis f ing (Listing continued, text begins on page 84) 


INTERPRETER' 


NOT ALLOCATE BUFFER BETWEEN 


INSTALLED‘ 


S408 787 * 

240F: 788 * MESSAGE ASKING USER WHERE 

240F: 789 * TO PUT RAMDISK DRIVER CODE. 

240F: TSO .% 

240F:8D 8D 8D 8D 791 WHEREMSG DFB CR,CR,CR,CR 

2413:20 20 20.20 792 ASC : 

29418:52 41 4D 44 793 ASC ‘RAMDISK DRIVER ADDRESS 
242F:4F 50 54 49 794 ASC ‘OFREIONS* 

2436:8D 8D 8D 795 DFB CR CRYECR 

2439:20 20 20°20 796 ASC : 

243F:S58 31-5D 20 oor ASC Ee aE INSIDE PRODOS AT S$FFOQO' 
2459:8D 8D 798 DFB CR,CR 

24358: 20.20 20 20 TI9 ASC : 

24613-5532 5D -20 800 ASC Lae UNDER BASIC 
247C:8D 8D 801 DFB CR,CR 

Z47E: 20: 20 20.20 802 ASC ’ 

2484:5B 33 5D 20 803 ASC Os AT $30u 
248F:8D 8D 804 DFB CR,CR 

2.99 12 2.0°-2'0. 2:0 2:0 805 ASC : 

249 7.:38 5 t. SD 55 806 ASC “CETUS 

249D:8D 8D 807 DFB CR,CR 

Z49E.:-20 320 20 20 808 ASC : 

24A9:20 20 20 20 809 ASC : 

24B2:00 810 DFB EOL 

24B3: 8ii * 

2483. B12 KKK KKK RR KK KKK KK 
24B3: 813 * 

24983: 814 * NO DOS BUFFER FOUND UNDER BI 

24B3: 815 * 

2483:8D 8D 8D 8D 816 NOBUFF DFB CrR,CR,CR,CR 

2487:8D 38D 8D 8D 817 DFB CR,CR,CR,CR 

24BB:20 20 20 20 818 ASC : 

24C9:4946 41 54 41 819 ASC ‘FATAL ERROR ' 
2404:8D 8D 820 DFB CR,GR 

24D6°720 20 20 821 ASC ; : 
24D9:43 4F §5 4C 822 ASC ‘COULD 

24FA:8D 8D 823 DFB CR,CR 

24aFC: 20 20:'20 20 824 ASC ; j 
25.06: 42 49° 20°. 41 825 ASC “BI AND FILE BUFFERS' 
2519:8D 8D 826 DFB CR,.CR 

ae 1B 2052.6. 120. 2:0 827 ASC ; : 
2520:46 4C 41 53 828 ASC ‘FLASHCARD DRIVER NOT 
249 32: 8D: 6D 829 DFB CR,.CR 

2540:00 830 DFB EOL 

2541: Buk 1 OX 

2541: 832 KKK KKK KR KARR RRR RK KK KW 
aaa: 833 * 

2541: 634 * THIS ROUTINE 18S USED TO-cET 

2541: 835 *.A SINGLE KEYPRESS FROM THE 

23541: 836 * KEYBOARD AND RETURN IT IN 

23423: 837 * THE A-REG WITH THE MSB OFF. 

2541: 838 * 

2541:8D 10 CO 839 GETKEY STA STROBE 

2544:AD 00 CO 840 GK1 LDA KEY 

2347:10 FB 2544 841 BPL GKi 

2549:8D 10 0 842 STA STROBE 

2354°4C :29 7F 843 AND #9 7F 

234E:60 844 RTS 

2354F: 845 * 

254F: BG KAKO KKK KR ARK MEK KARR KR 
254F: 847 * 

234F: 848 * PRINT PROGRAM TITLE 

23:4F : 849 * 

25.4F: 20: $8 FC 65:0 LUTLE JSR HOME 

2552:A0 00 851 LDY #0 

208: BY 982s S52: Tt LDA MSC,Y 

za 77:C? 00 853 CMP #EOL 

2359: FO:.0.8 2563 854 BEQ oz 

23558: 855 * 

4a 08 09:80 856 ORA #580 

2000: 20.-ED FD 857 JSR COUT 

25460:C8 858 INY 

2961:D0 Fi 23554 859 BNE wd 

2563:60 860 TI2 RTS 

2364: 8é1 * 

2564: 862 KKK KKK RARER KARR KR K KA KEK KKK 
2564: 863 * 

2564: 864 * THIS ROUTINE WILL DISPLAY THE 
2564: 865 * RAM DISK VOLUMN NAME IF THE 


(Continued on page 98) 














Excellent product... best 
screen manager I’ve ever 
seen in any language. 


Don A. Williams 
Finance & Administration 
Honeywell 


Sunny Hilt 
Software 


The word professional 
most certainly describes 
the capabilities this sub- 
routine library provides 

Sor implementing inter- 
rupt service and pop-up 
routines. 


Computer Language Magazine 


Get the tools that have no competition. 


TURBO PROFESSIONAL’s easy to use routines let you .. . 
write safe, ‘‘sidekickable’’ routines that can use DOS 

* execute DOS commands from Turbo ° create super-fast 
windowed displays * service interrupts without assembler 
¢ make your own keyboard enhancers ¢ allocate memory 
from DOS ¢ print concurrently with DOS 3.x. 

Complete with 109 + routines, manual, source code to 
Super Macs keyboard enhancer, and many example 
programs. 


Only $49.95 + $5.00 shipping & handling 


Visa, MasterCard ok. 
Order now! 
(206) 367-0650 


/ Sunny Hill Software 
| 13732 Midvale North Suite 206 
Seattle, Washington 98133 


Requires Turbo for compatibles. Turbo Pascal & Sidekick Trademark Borland Intl. 
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Now for PC Users: 


Professional Typesetting Capability 








PCT RX brings to the personal computer user the ability to put any 
kind of information on paper in a professional, elegant manner. 

It brings the full power and flexibility of TRX implementations on 
mainframes to owners of IBM PC’s, AT’s and workalike computers. 


PCT RX is widely used for formatting technical and mathematical 
material. It is also perfectly suited for producing professional-quality 
reports, manuals, even books. 


PCTRX offers a wide range of typefaces, and a wide choice of drivers 
which output the finished material on dot matrix printers (Epson, 

Toshiba), low-cost laser printers (Apple LaserWriter, Corona LP300) 
and graphics screen preview (Hercules, EGA). All text in this ad has 
been formatted by PCTRX and produced on a Corona Laser Printer. 


Join hundreds of satisfied PCT EX users. Write or call us today. 


PCTpx: only $279. Dot-matrix drivers: $100. Laser drivers: $300. Preview 
(Hercules GC): $250. MF Medley (44 fonts, including Computer Helvetica): 
$100. Corona Laser Printer and PCTEX: complete $3395. System requirements: 
DOS 2.0 or later, 512K RAM, 10M hard disk. M/C, Visa accepted. 


Personal 20 Sunnyside, Suite H 
Mill Valley, CA 94941 
Inc (415) 388-8853 Telex 275611 


Trademarks: PCTpX, Personal TeX, Inc.; TeX, American Mathematical Society; IBM PC 
and AT, IBM Corp; LaserWriter, Apple Computer, Inc.; Hercules Graphics Card, Her- 
cules Computer Technology. 
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Vera ha Peyy 

TD aes 

GOT BETTER! NOW SZ Gos 


DON’T ASK HOW OURS CAN BE SO FAST... 
ASK WHY THEIRS ARE SO SLOW! 
“. a breath of fresh air. .” 
Computer Language, Feb. 85 





Now fully compatible with M80 
in .Z80 mode with many exten- 
“. in two words, I’d say speed & sions. Time & date in listing, 16 


flexibility”, char. externals, plus many other 
Edward Joyce, User's Guide #15 features. 


NORMALIZED PERFORMANCE To order, or to find out more 


PX Tale) (3 i 
rn about our complete family of 
development tools, call or write: 


__.5 LR_Systems 


HEX file. 

1622 N. Main St., Butler, PA 16001 
(800) 833-3061, (412) 282-0864 
Telex 559215 SLR SYS 


B C.OeD., Check or 
Money Order Accepted 
1:17 3:26 5:25 6:13 06 :22 :49 1:00 


2Mhz 8Mhz SHIPPING: USA/CANADA + $3 @ OTHER AREAS + $10 
8” SS/SD Ram Disk Z80 CP/M compatibility required. 


ZAS (Mitek, Echelon) 


Ms0 
ASM (2500AD) 


ASM (2500AD) 


e 
& 
® 
= 
(3) 
uJ 
x 
& 
CF 
Y) 
= 
N 
~~ 
2 


1.00 Z80ASM 
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$49.95 FMT $49.95 


Text Formatting System 


FMT provides most of the features of 
the high-priced Text Formatters at our 
inexpensive price -- and it’s easier to 
use, too! Note the features below: 


e Easily configured to your printer. Con- 
figuration files for 20+ printer models 
are provided or generate your own. 


FMT gets the most from your printers 
by taking advantage of their special 
features, including condensed, double 
width, enhanced, double print, italics, 
elite, letter quality, multiple fonts, etc. 


Multiple modes and combinations of 
modes can be used on the same line 
or even in the same word. 


FMT works with your favorite editor! 


FMT uses meaningful mneumonic 
commands in the style of SCRIPT or 
ROFF (each command appears on its 
own input line), including commands 
for the various printing modes. 


No embedded control codes - you 
don’t have to remember those strange 
escape/control sequences. 


FMT runs at the maximum speed your 
printer allows for each printing mode 
- graphics mode is not required. 


Standard formatting features provided, 
including headers and footers, 
automatic page numbering, text 
justification, tabs for table generation, 
and embedded files up to TEN deep. 


FMT automatically builds Table of Con- 
tents, List of Figures, and three level 
alphabetized Index. 


Detailed 100+ page manual profuse- 
ly illustrated with examples. 


Works equally well with IBM-PC, TI-PC, 
IBM clones and look-alikes (PC- 
DOS/MS-DOS 128k). Also works with 
CP/M 8080 and Z80 systems with 64k. 


$49.95 plus $2.00 shipping and 
handling. 


Specify system. 
VISA and Master Card Accepted 


Dealer Inquiries Welcome 


TINY TEK, INC. 
Route 1, Box 795 
Quinlan, Texas 75474 
(214) 447-3025 
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2564: 866 * INSTALL WAS SUCCESSFULL. 
2564: 867 * 

2364:A0 00 868 DISPVOL LDY #0 

2566:B9 31 26 869 DVO LDA VOLNAME,Y 
eo6 9 C9. 66 870 CMP # EOL 

256B:FOQ 09 2576 871 BEQ DV1i 

2536D:09 80 872 ORA #380 

256F:20 ED FD 873 JSR COUT 

2572:C8 874 INY 

2973:49C 66 25 875 JMP DVO 

2576: 876 x 

2376:A0 00 877 DVi1 LDY #0 

2378:89 SE 26 878 DV2 LDA VOLUME,Y 
2978:C9 00 879 CMP #EOL 

23°7D : FO -0C 258B 880 BEQ DV3 

25782 C0-.0E 881 CPY #14 

2581:FO 08 258B 882 BEQ -DV3 

25:8:3°: 883 * 

2583:09 80 884 ORA #$80 

2585:20 ED FD 885 JSR COUT 

2588:C8 886 INY 

2389:D0 ED 2578 887 BNE DV2 

238B: 88B * 

258B:20 BE FD 889 DV3 JSR CROUT 

4a 0£ 9°20. GE ‘FD 890 JSR CROUT 

a0 9 t-::20 BE. FD 891 JSR CROUT 

2594:20 8E FD 892 JSR CROUT 

2397:20 3A FF 893 JSR BELL 

259A: 60 894 RTS 

259B: 895 * 

259B: BI 6 MAK KKK RRR KK RR KK 
2598: 897 * 

25-98% 898 * PROGRAM TITLE 

2338: 899 * 

259B:8D 8D 8D 900 MSG DFB CR, GR. CR 
259E:8D 8D 8D 901 DFB CR,CR,CR 

4dA1 -20.20:°20 -2:0 902 ASC : ‘ 
253AA:50 52 GF 44 903 ASC ‘PRODOS RAMDISK DRIVER' 
25BF:8D 8D 904 DFB CR,GR 

256 45-20 -2:0. °20-2:6 9O5 ASC : Z 
25CE: 46 4F $2.20 906 ASC ‘FOR FLASHCARD' 
23DB:8D 8D 907 DFB CR,CR 

#3DD=.2:0'- 20.26: 20 908 ASC : : 
acbRc3 6: 825 "52 $3 909 ASC ‘VERSION P23 
25F6:8D 8D 910 DFB CR,CR 

2S F6...20.-20:- 20 26 P14 ASC . . 
26035 =41 (46 46 52 F242 ASC ‘ALFRED STEELE' 
2612:8D aD 913 DFB CkK,CR 

26:14:26 «2:0 -2:0-72:0 914 ASC : ; 
2623:4A 55 4C 59 9S ASC ‘JULY 1985' 
262C:8D 8D 8D 8D 916 DFB CR.CR -CR., CR 
2630:00 9? DFB EOL 

2631: 918 * 

263%: 91:9“ s 

2631.; 920 * 

26:01.2:2 0.20 “SO - 32 921 VOLNAME ASC 2 RAMDISK VOLUME NAME /' 
2649:00 922 DFB EOL 

264A: 92:38 

264A: 924 RKRAKKKRH HRA KRKRAKKKRKEE RK ARKRK KEK 
264A: 925% 

264A: 926 * CLEAR DIRECTORY FLAG 

264A: 927 * SET FLAG FOR NO CLEAR 

264A: 928 x 

264A:01 929 CLEARDIR DB $01 

2648: 930 * 

264B: 931 KRRARKHKHKR RRR KERR KKK 
264B: 932 * 

264B: 933 * MLI WRITE PARAMETER LIST 
264B: 934 * 

264B8:03 935 MLIWRITE DB $03 

264C:50 936 DB $50 

264D:57 26 937 DW BUFFER 

264F:02 00 938 WRITEBLOCK DW $0002 

2651: 939 * 

2651: 9QO RAK AR KHER ERE KKK KEKE RRR ERR KK 
2651: 9di * 

2653: 942 * MLI READ PARAMETER LIST 

2651: 943 * 

2651:03 9494 MLIREAD DB $03 

2652:50 945 DB $50 

2633:00 20 946 READBUFF DW $2000 

2655:02 00 947 READBLOCK DW $0002 

2657: 9948 * 

26 37: 949 RAK K RRA REAR KH 
26:9:2.% 9350 * 

2ea7. 9351 * MLI READ BUFFER 

265 7° PSS et 

26:35'27:: 933 * THE BYTES FROM BUFFER TO 
26587: 954 * MIDBUFF IS THE RAMDISK VOLUME 
26.57%: 935 * DIRECTORY HEADER. THESE BYTES 
2657: 956 * HAVE TO BE WRITTEN TO THE 

265 7°: 957 * RAMDISK AT BLOCK 2 BEFORE THE 
2657: 958 * RAMDISK CAN BE USED BY PRODOS 
a607%: 9S9 «x 

2657: 960 * WE WILL ALSO USE PARTS OF 
2657: 961 * THIS VOLUME DIRECTORY HEADER 
£6:5.7 = 962 *® AS A CHECK TO SEE IF THE 
4697: 963 * RAMDISK IS ALREADY FORMATTED 
26:57: 964 * IF SO THE USER CAN REFORMAT 
sour: 965 * THE RAMDISK OR LEAVE IT ALONE 
2657: 966 *® 

2657:00 00 967 BUFFER DB $00,800 

2659: 968 * LAST BLOCK 

2659:03 00 969 DB $03,800 

265B: 970 * STORAGE TYPE/NAME LENGTH 
265B:F3 92% DB $F3 

265.0 972 * VOLUME NAME 

265C:52 41 4D 973 VOLUME ASC ‘RAM' 

265F:00 00 00 00 974 DB $00,$00,%800,800 
2663:00 00 00 0Q0 975 DB $00,$00,$00,8600 
2667:00 OG 00 O00 976 D $00,$00,8$00,800 
266B: 977 * RESERVED 

266B:00 00 00 O00 978 D $00,$00,%$00,800 
266F:00 00 00 OO See DB $00,$00,$00,$00 
2673: 980 * CREATION DATE/TIME 

2673:00 00 00 00 981i DB $00,$00,$00,$%00 
2677: 982 * VERSION/MIN VERSION 

2677:00 00 983 DB $00,800 

2679: 984 * ACCESS BYTE 

2679:43 985 DB $43 

267A: 986 * ENTERY LENGTH 

26 7A :.27 987 DB $27 

2678: 988 * ENTERIES PER BLOCK 

267B:0D 989 DB $0D 

267C: 990 * FILE COUNT ON DISK 

267C:00 00 991 DW $0000 

267E: 992 * BLOCK NUMBER OF BIT MAP 
267E:06 OO 993 DW $0006 

2680: 994 * TOTAL NUMBER BLOCKS ON DISK 
2680:00 02 995 DW $0200 


(Continued on page 100) 
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Introducing Periscope II 
Professional Debugger 
and Break-out Switch 


New Peri- 
scope I] 
includes 


a remote Finally, the sim licity 





® 
of BASIC, 














break-out 
switch that yet faster than Turbo. 
does not 
need its - Works the same on - 6-54 digits of precision - Chaining with shared 
own slot! all micros (selectable by user) variables 
- Uses same - Built-in interactive Not Copy Protected— 
commands—regardiess _ editor and compiler—to No Run Time Fees or 
a Periscope is) “the =e ne in development of computer make compile and execute, just Royalties 
tools currently on the market .. . the most - Structured Basic— type “run.” One low price—No 
essential element of ae Eee deine (spaghetti optional) ‘Choice of - Hidden Costs. Only 
—_ Jeff Garbers - Device-independent alphanumerics labels $89.95 complete! 
graphics (same graphic or line numbers 


commands on all computers) 


°=YES ZBasic TURBO | MBASIC True BASICA 
Interpiler | PASCAL | compiler BASIC | interpreter 
3.0 3.0 (IBM PC) 


IBM and REN Biasesvaes 


ie | eee oe en 
[Apple le ie(6502) |__| NotAvail_| NotAvail_| NotAvail_| Not Avail 
ropm-022.30 [> | + | + | NotAvail_| Not Avail 
[TRS-80 Mod. tl.4 4p ___| > | NotAvail_ | _+ _| Not Avail_| Not Avail 


Not Avail jon ening pera 
Maximum scientific digits 6 to 54 11 Binary 
of accuracy. (COS, SIN. selectable | BCD Not 
ATN, LOG, EXP etc.) bythe user} Avail. 
Device Ind. Graphics 
(same commands all graphic Not Avail. | Not Avail. | Not Avail Not Avail. 
modes and computers) 
SAME File commands Not Avail. Avail. Not Ava | Avail. | Not Avail Not Not Avail | Not Avail 
all computers? 
STRUCTURED: Labels. 
Same editor commands 
Sieve benchmark (Byte 
Smears) | era [wee [one | aoe [oom 
Shell-Metzner SORT 
28 sec. 71 Sec. 194sec. | 2700sec. 
2,000 5 char. strings) 
Executable Machine 
PRICE 89.95 
without BCD BCORRER | Seon reer 
Zbasic 1s a trademark of ZEDCOR Inc C 1985 IBM's a registered trademark of international Business Machines Corp Apple //e. //c are trademarks of Apple Comp Inc 


(Sybex-BASIC for 
rea 92k | Not Avail Avail Not Avail Avail. 
Lang. & approx. File size 
Macintosh is a trademark licensed to Apple Comp Inc PM-80 1s a registered trademark of Digital Research inc TRS-80 is a registered trademark of the Tandy Corp 


“Very piiaerfid for debugging and testing . . 
Better than Atron by far.” —Wynn ee 








The break-out switch “‘really sets Periscope 
apart from the typical software-only debug- 
gers.’’ Hung system or locked keyboard? 
Press the switch to get control! 











Periscope’s symbol support “beats the day- 
lights out of snooping through a map file and | 
making notes’. See high-level line numbers 
and source code, too! 






“Feel right at home’ in no time with com- 
mands that logically extend Debug’s! 








Periscope’s speed makes other debug- 
gers “look absolutely sluggish’’! It’s written 
entirely in assembler and uses DOS only 
for file access. 













Has all the standard features plus: — | 


e Debug with over 75 breakpoint options 
New! Write your own Breakpeint tests 
New! Traceback 

New! Do in-line symbolic assembly 

@ Debug using one or two monitors 

@ Recall command lines © 












Scientist's and Eng. 
PRICE with BCD 
BCD=No rounding errors) 89.95 109.95 450.00 





N | Debug with high-level source ‘ode 
: | Redefine windows while debugging 
ae text aS while oo | TURBOPASCAL is a registered trademark of Boriand Int MBASIC is a registered trademark of Microsoft Corp True BASIC is a registered trademark of Addison-Wesley 


Publishing Co BASICA's a registered trademark of international Business Machines Corp Ali benchmarks and accuracies apply to standard IBM PC with 8088 Other 
computers and/or CPU benchmark speeds accuracies and object code file sizes will vary depending on the computer clock speed operating systems and other factors 
beyond our control 









eae Poriscone via user exits 
New! Display 8087/80287 status 
le w! Use Periscope with an EGA 





Gatien : Basic CE Si GE 6 2 ee SS OE 


30-Day Money-Back Guarantee Arizona Residents add 5% Sales Tax. C.O.D. add additional $5.00 per order. Orders outside U.S. and Canada add $20.00 per shipment 
for postage (U.S. Currency only) 


. - i ; ‘ Mail to: 
Boke requires: IBM PC, XT, AT, or | g The lightening-fast BASIC Bec ae 3 
close compatible; DOS 2.0 & later; 128K a from Zedcor 4500 E. Speedway, Ste. 93 8 
RAM; 1 Disk Drive; 80-column Monitor. | Tucson, AZ 85712 P 
fs 5 zg To order use this coupon or call (orders only): 1-800-482-4567 
Periscope II, break-out switch, manual, | BE inauiries : (602) 795-3996 $89.95 for each version a 
| 
reference card and software...$145! 5 a MECe Cos onaee A 
Periscope I also includes the write- | Se ee ee 0 re ile d 
protected RAM board to protect crucial | g © ih ey eee 8 
debugger code. It’s just $295! | Aasress) (Apt) 3 TRS-80 ( Model 13) z 
The US N Bor f Cl TRS-80 (Model 4) g 
e avy gets Periscopes from us | g Cy -.  .  - = (State)... (Zip. . (G>Macintosh 4th OTR.-85) 
... Shouldn’t you? Order today! q CO DEVELOPERS—BUY ALL 6— q 
tapi ela ante ecards iaiineicheteiensicbcie | g (Day Fhone) $399.75, ($449.75 VALUE) g 
Order/Information Call Toll-Free: g CREDIT CARD—MASTERCARDIVISA/AMEXIC.O.D. y a ethene 00 i 
800-722-7006 Zz 1 ; 
§ =CREDIT CARD EXPIRATION DATE: TOTAL $ 1 


Data Base Decisions @ 404/256-3860 
14 Bonnie Lane @ Atlanta, GA 30328 | Circle no. 160 on reader service card. 
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9 
0200 9 


ABORTMSG 


vn woo 
wow NO 


Cc 
CLEARDIR 
CONT 

DAi 
DEVCNT 


DISPVOL 
DV3 


~~ 
MNDWN VWWKYNNNVPKHNNNNDNDNNNDND NHN HN 


READBUFF 
$1 


~~ 
aQw NVYNY HNN VN DO MH NN NLP 


SETDEV 
SSDIO 

TEMP 

TE TIOE 
WARMDOS 
WRITEBLOCK 
WT 1 


xk SUCCESSFUL ASSEMBLY 
xe 


HR RON KE RUE UUM NE ORE NNEK ND NW OO 


FHODAHAHHOCUNDM@SLVPAOOWOOLMAMOKWOWS OTF 


~ 


ANOSONPFAK—KOWDWONOAMDL-OWPrUKKoMUUwD NN 
wv 


WUormu 


aK 





¥ 
oS 4 3 
y i. A 


K— KP ARQAK RK UMNNOKNNNe 


oO~ 


NNN 
wre 


ASSEMBLER CREATED ON 14-JUN-83 09 
ke TOTAL LINES ASSEMBLED 
FREE SPACE PAGE COUNT 


* REST OF BUFF MORE THEN NEEDED 
MIDBUFF DS 5312 

F9 BEQO 2409 BE1 

D2 BLOCK! D3 BLOCK2 

Dé BLOCKS5 ? D7? BLOCK6 

94 BUFFADR 23Fi BUFFERROR 
1c’ C2 2124 C3 

15 CB2 2218 CB3 

95 CD2 Z22AA CD3 

530 CHECKDEV 222B CLi 

E2 CLEAREND 42 COMMAND 
ED COUT FD8E CROUT 

EY DA2 22D1 DEVABORT 
32 DEVLST 06 DIRBLOCKS 
66 DVO 2576 DVi 

8F ENDSSD 00 EOL 
7AZEXIT BEFS GETBUFF 
98 HOME C000 KEY 

4B MLIWRITE BFOO MLI 

9B MSG 24B3 NOBUFF 

Bé Ri 48 RAMBANK 
56 READBYTE 01 READ 

08 SAVEBYTES 21C8 SD1 

D7? SETVECTOR 02 SSDCODE -: 
DO SSDLOW 2100 SSDSTART : 
00 TEMPZERO 2554 TI1 

43 UNITNUMB 2631 VOLNAME 
OF WHEREMSG 2397 WHERETO 
61 WRITEBYTE ZiEF WRITEDIR 
CB WT2 23DA WT3 


NO ERRORS 

3.0 
997 

87 
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The Complete and Comprehensive Intelliware™ 
' Laboratory for Expert System Concepts on the 


conmansnceonne 


Includes: 


connate 


Experteach 


© Comprehensive Introduction 
to Expert System Concepts. 

® On-line Tutorial Describing 
the Operation of Expert 


Systems. 

° Lisp Based Expert System 
Tools with Source Code. 

© Prolog Based Expert System 
Tools with Source Code. 

¢ dBASE II? Based Expert 
System Tools with Source 
Code. 


¢ Pascal Based Expert System 
Tools with Source Code. 

© Complete Lisp Interpreter for 
the IBM PC® . 


¢ Complete Prolog Interpreter 
for the IBM PC. 


¢ Comprehensive Case Studies 
of Several Major Expert 
Systems. 

¢ Comprehensive bibliography 
on Expert Systems. 


Intelliware, Inc. 


IBM Personal Computer. 


Experteach is a comprehensive guide to Expert System 
technology consisting of a uniquely integrated collection of 
Expert System tutorials, case studies, on-line teaching pro- 
grams, Expert System building tools with source code and 
Artificial Intelligence languages. Experteach is based on 
extensive experience in teaching Expert System concepts in 
association with IEEE, ACM and the Continuing Educa- 
tion Institute. 

Experteach introduces you to Expert System technology 
by allowing you to build Expert Systems and to experiment 
with a variety of Artificial Intelligence tools and languages 
on the IBM PC. 

Experteach includes eight rule-based Expert System 
shells with source code implemented in Lisp, Prolog, 
dBASE II and Pascal. Each language has been used to im- 
plement both a forward chaining and a backward chaining 
Expert System shell with a built-in rule editor, inexact in- 
ference and how & why explanation facilities. 

Experteach includes a comprehensive Lisp interpreter 
and a complete Prolog interpreter with DEC-10 Prolog 
syntax. Experteach requires only 256K of memory. 


Intelliware, Inc., 4676 Admiralty Way Suite 401 

Marina del Rey, CA 90291 (213) 827-1334 

(JIntroduction to Expert System Concepts, On-line 
Tutorial, Case Studies, Bibliography and Pascal Based 
Tools $99.00. 

C)Lisp, Prolog or dBASE II Based Tools $99.00 each. 

(JComplete Experteach System with Lisp and Prolog 
Interpreters. $475.00 Check, Money order,Visa or 
Mastercard. $9.00 for postage and handling. California, 
6.5% tax. 





Experteach and Intelliware are trademards of Intelliware, Inc. IBM PC is a registered trademark of IBM. dBASE II IS A TRADEMARK OF Ashton-Tate. 
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MCOVUOK OWMUFUW DS VVYMK DONDVWNUSLOwW 


mM NNN oO 


Ww OUWUCOKr kK OOO Ke Ue Ub 


' 


COAKVAWOKNSUNMK OF MOBY ONOKrIO YO DY 


cD4 
CLEARBUFF 
COMPUTE 
CR 


DEVADRS1 
DIRFOUND 
DV2 

EX1 
GETKEY 
MAIN 
MLIREAD 
NODEV 
READBLOCK 
RELOCATE 
SETBLOCK 
SSDOHI 
STROBE 
sae 
VOLUME 
WRITE 
WTO 

WwT4 


End Listing 


CP/M 


UPGRADES - FROM $49.95! 


ConiX Operating System: Adds more UNIX'-like features 
to any 48K+ CP/M-80 or compatible micro then ever before. 
It's a total upgrade for CP/M! Includes I/O Redirection and 
Pipes (uses memory or disk), perfected User Areas, Command 
and en Path Searching, Auto Screen aan. 8Mb Print 
Buffering, 22 new SysCalls, Function Keys, ‘Virtual’ disk 
system, Archiver (saves over 50% disk), extensive command 
language, 300+ variables, 100+ commands, and even more/ 
Uses 1/2K TPA, 0-27K disk minimum. 60-second install time/ 


ConIX Library | - XCC Utilities: Over 20 utilities written in 
the ConlX shell language. including hierarchical directories, 
interactive debugger. snore copy nie multiple files, print files 
with pagination, review disk files for deletion, unerase disk 
with stats, full-screen TYPE, and more. Source code included / 


““(ConIX) goes a ayant deal farther in flexibility than any other 
CP/M shells. . . this system has all of its competitors beat.” 
As reviewed in Computer Language. June 1985. 


e ConlX Basic System: List $99.%, ence - only $49.95 

e ConiX Eee anes System: List $99.95, Special - only $49.95 

e Both Systems 1 area List $165, Special - only $79.95 

e ConiX Pull-Down Menu: List $35, FREE with any ConlX system 
e ConlX Library |: List $49.95, with any ConlX system only $34.95 


Prices include manual, 8’ disk. and user Sree. 5%"" conversions 
48TPI $6, other $10. Shipping: $4.50 UPS, $10 Canada, $15 overseas. 
NY residents add sales tax. Dealers wanted - special incentives! 


Computer Helper Industries Inc. 
P.O. Box 680 Parkchester Station. NY 10462 
800-628-2828 X513 24hr. order hotline - COD only 
212-652-1786 M-F:10-6 sales/technical staff 


UNIX: AT&T Bell Labs, CP/M: Digital Research, ConIX: Computer Helper ind. 
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No source code for 
your REL files? 


REL/MAC 


converts a REL file in the Microsoft™ 
M80 format to an 8080 or ZILOG™ Z80 
source code MAC file with insertion of all 
public and external symbols. 

@ REL/MAC makes MAC source files 

@ REL/MOD lists library modules 

@ REL/VUE displays the bit stream 

@ REL/PAK includes all of the above 

e@ 8080 REL/MAC demo disk $10.00 


REL/PAK for 8080 only ............... $99.95 
REL/PAK for Z80 & 8080 ............. $134.95 
on 8"SSSD disk for CP/M™ 2.2 


Send check, VISA, MC or C.O.D. to 
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COMPUTER TECHNOLOGY 


PO. BOX 1473, ELKHART, IN 46515 
1-800-622-4070 
(Illinois only 1-800-942-7317) 
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Dealer 
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“A Higher Form of Software” 
24000 Telegraph Road 
Southfield, MI 48034 
(313) 352-2345 
TELEX: 386581 COGITATE USA 
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Software Tools in C 


“| have already saved weeks of coding... thank 
you for providing such a useful tool..." G.T. 


Let The HAMMER Library of over 150 routines save you 


valuable development time and effort: 


LIBRARY FUNCTIONS 
® Multi-level 123-like MENUS 
© DATA ENTRY 
_®@ MULTI-FIELD mode for Full-Screen data entry 
® Single-Field mode for individual fields 
@ Data Verification 
e Full Editing within each field 
@ Strings, dates and fixed decimal numbers 
e “Option” fields force user to pick from a given sel 
© SCREEN MANAGEMENT 
~ @ cursor positioning 
e full attribute control 
@ Pate/time/string conversions 
e BIOS access/pattern matching/and more 


SUPPORTS: Microsoft C 3.00 @ CI-C86 © MW C86 @ 
DeSmet C e@ Lattice 


INCLUDES source code and manual 






















e display boxes & tables 
e scrolling and clearing 


$195 plus shipping 

VISA/MC accepted 
O.E.S. SYSTEMS 

1906 Brushcliff Rd. © Pittsburgh, PA 15221 

412/243-7365 
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SAME DAY SHIPPING (USUALLY) 


OUTSIDE OKLAHOMA: NO SALES TAX 
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HIGH QUALITY CP/M 


SOFTWARE 







Britain and Europe for over 4 years. Now we'd 

like to introduce you to our range of program- 

ming languages: 

HiSoft Devpac: Z80 assembler/editor/ 

debugger 

Kernighan/Ritchie 

implementation 

HiSoft Pascal: fast, standard compiler 
All at $69 inclusive each. 


These programs are also available for other 
Z80 machines including Timex 2068. 


HiSoft C: 


press commentaries, or order from: 









MasterCard/VISA or UPS CASH COD 
Factory New, Prime Parts uPoo 


MICROPROCESSORS UNLIMITED, INC. 
24,000 S. Peoria Ave.. (918) 267-4961 


BEGGS, OK. 74421 
Prices shown above are for Nov. 18, 1985 













discount prices shown. Orders received by 6 PMC 
Express 


moming, via Federal Standard Air @ $6.00, or Priority One @ $13.00! 
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NS 


We will support you on over 20 UNIX 
and Xenix based machines. Targets: 





Fairchild 8/3870 

Hitachi 6301, 6305, HD64180 

Intel 8041, 8048, 8051, 8080 
8086 family 

Motorola 6800, 6801, 6805, 6809 
68HC11, 68000 family 

NSC 800 

RCA 1802 

Rockwell 6502/65c02 

Texas Inst. TMS7000 

Zilog Z8, Z80 


UNIVWVARE™ 


SOFTWARE DEVELOPMENT SYSTEMS, INC. 
3110 Woodcreek Drive 

Downers Grove, IL 60515 U.S.A. (312) 971-8170 

England: Unit C, Ltd. (0903) 205233 


UNIX is a Trademark of AT&T Bell Labs 
Xenix is a Trademark of Microsoft 
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* FORTH * 


and Assembler for 


435802/316* 


16 bit Processing for Upgraded 6502 Systems 






Forth, Assembler, and Debugger for 
& 65 Series Processors 
On a VAX or PC* 


® starlight Forth Systems %& 


he 15247 N. 35th St 
Phoenix, AZ 85032 


(602) 992—5181 


“65802 on Standard 6502 systems he 
* % 
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Please call for current prices. Prices subject to change. Please expect higher or lower prices on 
some parts due to supply & demand and our Me be costs. Shipping & insurance extra. Cash 
ST can usually be delivered to you by the next 
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UNIVERSAL 
CROSS-REFERENCER 


IT works witH ALL 


LANGUAGES 


BASIC, C, PASCAL, FORTRAN, COBOL, 
ASSEMBLER, dBASE ... you name it. 


IT HANDLES standard languages, 


extended languages & exotic languages. 


IT CONFIGURES to your com- 


piler, interpreter, or assembler — ALL 
BRANDS — ALL VERSIONS. 


INTRODUCTORY $3995 


PRICE 
$3.00 S/H - MC/Visa/Check - 6% Texas Sales Tax 
For the IBM PC, XT & compatibles. DOS 2.0+ 


DALSOFT SYSTEMS 
3565 High Vista - Dallas, TX 75234 


(214) 247-7695 


Circle no. 86 on reader service card. 


Users’ 
Group 


Over 60 volumes of public 
domain software including: 


compilers 

editors 

text formatters 

communications 
packages 

many UNIX-like tools 


Write or call for more details 


The C Users’ Group 
Post Office Box 97 
McPherson, KS 67460 
(316) 241-1065 
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HiSoft has been selling Z80 CP/M software in | ~ 








Call or write for full technical details and _ 














16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 


The programs published in this 
month’s column are available for 
downloading from the Laboratory 
Microsystems RBBS at (213) 306- 
3530 (300 baud or 1200 bps). 


Microsoft Assembler 
I never cease to be astonished at the 
flurry of letters that results every 
time we publish something about the 
Microsoft Macro Assembler. 

J. C. Hoisington of Morgan Com- 
puting (publisher of Trace86 and 
Professional Basic) writes: “‘We 
switched from IBM to Microsoft at 
Version 2.0. That means we didn’t 
get SALUT but we did get to upgrade 
to Version 3.0 early this year for 
$75.00. Version 3.0 finally corrects 
many of the errors (and ridiculous re- 
strictions) of earlier versions. The 
most useful to us is that they finally 
allow 


lods byte ptr es:[si+ 0] 


“which assembles as 26AC. I still 
found many bugs in Version 2.0, but 
3.0 seems to have very few glitches.” 

David L. Rabbers, of Seattle, 
Washington, writes: “Regarding the 
errors [published in previous col- 
umns]| two of them are yours, not the 
assembler’s. Specifically, any con- 
stant ending in b or B is always treat- 
ed as binary, and any constant ending 
ind or D is always treated as decimal. 
This is true regardless of the current 
radix setting. So, if you set the radix 
to 16, you must see to it that hex con- 
stants ending in b, B, d, or D are fol- 
lowed by anh or H. A little inconve- 
nient, but how else could you specify 
binary or decimal constants in the 
midst of radix 16? 

“One feature of Microsoft MASM 
Version 3.0 is a new linker that sup- 
posedly supports simple overlays. 
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Unfortunately, there is no hint that I 
can find on how to use this feature. If 
you know how, or discover how, 
please publish it.”” Good point. My 
manuals don’t breath a word about 
the construction of overlays. Anyone 
out there have some inside informa- 
tion on this subject? 

Robert A. Blair, of Walnut, Cali- 
fornia, made the same point about ra- 
dix overrides and went on to say: 
“This assembler should be used in 
Computer Science courses in college 
as an example of the wrong way to 
design a compiler; it is the worst I 
have ever seen. If you thought that 
Version | had a zillion bugs, wait un- 
til you use Version 2 for a while. 

“IT have to define my data before I 
use it (I thought I only had to do that 
in Pascal) or explicitly tell the com- 
piler where it is to avoid phase errors. 
A multi-pass compiler should be able 
to figure out where the data is located 
without my having to tell it. The ac- 
companying assembly listing shows a 
few errors that I know about. The 
80286 PUSH immediate instruction 
generates the wrong length for some 
values. It will generate an instruction 
that requires two bytes of immediate 
data and only inserts one byte, or 
generates an instruction that requires 
one byte of data and inserts two 
bytes. The OFFSET operator causes 
link errors occasionally. The MASK 
used with HIGH does not work ... 
These are just the tip of the iceberg.” 
Robert’s contribution accompanies 
the column as the listing (page 106). 


Converting to DOS 3 

Dan Daetwyler is a regular corre- 
spondent to Doctor Dobb’s and al- 
ways has something interesting to 
say. This month he shared some of his 
experiences with the latest version of 
DOS: ““When DOS 2.0 introduced the 





concept of a file handle, I looked it 
over fairly carefully, and then decid- 
ed we were being shown ‘the way to 
go.’ I went. It was a nice concept, and 
effectively the number of file handles 
that could be used at one time was 
unlimited. They made it so you could 
not use more than 99 handles at 
once—a good, typical effort by pro- 
gramming to cope with the concept of 
infinity on a finite machine. This was 
all well and good, since no one was 
going to have more than 99 files go- 
ing on a PC. 

“Then along came the new Ver- 
sion 3.x DOS. Gee, it just had to be 
better (and bigger), and all that good 
stuff. I read the new features section, 
and there were a couple of goodies. I 
devoured them carefully, and put 
them to immediate use. I bought Ver- 
sion 3.0, even though each time I 
swear I'll wait for the x.1 release—I 
get so tired of fighting MS bugs. Still, 
I bought it, and the Technical Refer- 
ence, and really thought I read the 
documentation thoroughly. Along 
came Version 3.1, for which I 
breathed a large sigh of relief, since I 
could now stop fighting DOS bugs 
and worry about my own. And then I 
hit the thing with one of my moder- 
ately large complex systems. And 
bounced like a rubber ball. 

‘Buried in the details of the FILE 
statement in the CONFIG disserta- 
tion is a neat little statement that 
they’ve arbitrarily reduced the num- 
ber of active handles to 20! The con- 
straint is for a process, which is inter- 
estingly undefined, but you can 
assume it’s a DOS job or task. The 
horrible part is, they meant it! 

“So 20 isn’t too bad a constraint. 
There won’t be too many people who 
want to exceed that limit. Well, on 
the same page there’s a note that five 
of the handles are grabbed by DOS. 


Dr. Dobb’s Journal, December 1985 





That’s very true. So now you're down 
to 15. Still a reasonable number? Not 
in my estimation. Let’s follow 
through on a reasonably complex 
data base problem. We’ve got sever- 
al—let’s say five—master files, each 
of which is indexed. The three prima- 
ry files have double indices, while the 
less important two have only a single 
index. Five plus three times two plus 
two gives us thirteen. Still safe? Not 
really. As you’re aware, the only way 
you can force a buffer purge in DOS 
is to pseudo-close a file. Doing this 
with a duplicate handle permits you 
to avoid the killing performance of a 
re-open. Let’s be stingy. We'll only 
use one handle for this purpose. 
We've still got one left. However, I’ve 
yet to write a system that doesn’t 
have at least three and sometimes 
half a dozen supporting files for ar- 
chives, output, etc. The net result is 
that you end up short about five han- 
dles, even on a relatively small 
system.” 

Dan’s idea of a “relatively small 
system” would give many of us night- 
mares. Note how Dan offhandedly 
supplies the reason for the existence 
of that mysterious DOS function 45H 
called DUP, whose “explanation” in 
the DOS Technical Manual is “Pur- 
pose: returns a new file handle for an 
open file that refers to the same file at 
the same position.” I had always been 
perplexed by this function, and the 
Unix manuals weren’t any more help- 
ful than the DOS manual. By the 
way, the 5 handles preassigned by 
DOS to the Standard Devices aren’t 
really lost. You can always close 
them, and then reuse them for some 
other file or device. 

Dan writes on: “My current effort 
involves a minimum of 33 handles, 
and even that makes me uncomfort- 
able. Goodbye to DOS Version 3.x. 
Except I can’t! I can’t really lock a 
customer into the old DOS. Especial- 
ly with multi-tasking ‘right around 
the corner.’ 

“Tf you think this tale has a happy 
ending, you’re wrong. Let me tell you 
some of the things I’ve tried. You can 
set up a resident task, split the data 
base, and let the resident task own 
part of it. The catch is that if you try 
to communicate with the resident 


Dr. Dobb’s Journal, December 1985 


task, you’re running under the main 
task control structure, and DOS will 
tell you that the access isn’t autho- 
rized. I haven’t figured out how DOS 
knows, as yet, so I can’t figure out 
how to switch task structures. The 
traditional use of a user interrupt 
vector doesn’t work. DOS senses this 
and tells you again that the access is 
not authorized. Setting the file up 
with the proper attributes for a 
shared resource, and _ loading 
SHARE, doesn’t help. I guess I could 
fight through a disassembly of DOS 
and find out what they’re doing, but I 


OMPATIBLE 


‘Se 
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don’t want to spend the rest of the 
summer on this. 

“T started to drop back to my own 
FCBs, and drop the handle concept. 
There’s no limit to the number of files 
I can open, then, but then I’m back to 
the problems of the pre-handle DOS, 
and I can’t see any way to purge the 
buffers. I can’t really see exposing my 
customer to loss of data base when 
the power drops unexpectedly. I can’t 
actually give him total integrity, but 
using the pseudo-close purge gets the 
risk factor down to the noise level. 
I’ve three of the complex database 


dBASE I! Compatible. 


ua Se 
Sete emery 
Between Single-user 
And Multi-user. 


Speed. 


FoxBASE™ uses a state-of-the-art B+ Tree index 
structure for quicker, more efficient data access. 
A sophisticated virtual storage technique 
NTO MNO) 8m Cnet LU LO Oc 
works to insure that frequently referenced 
programs are retained in memory in compiled 
CMR EL eMLCMm Oy (tte) am OLCeNY(HL eM 
8087/80287 math coprocessor support for 
ultraquick program execution speed—as much 
as six times the speed of dBASE II° 


Sac ce 


mt do mL HLL Ue ele nT) 
database management system. Written in C, 
ats) me EC CMC UC Cg 
Mey Cam OWA COOL CLO MeL 
or operating system to another without changing 
your applications. And this portability protects 
your investment in programs by insuring their 
use in future machine and operating system 
environments. 


Multilink is a trademark of The Software 
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FoxBASE is both source language—including full 
macro usage—and data file compatible with the 
dBASE II database language. This means your 
COTS TUM Ys] NS) oak LUE] CLOSET SST 
unchanged. Furthermore, it puts thousands of 
Ue OSCE TMC ULM neler NMEA e) (2 
dBASE II programs at your disposal. 


PWC MU me ae Ce 


Our multi-user versions of FoxBASE feature 
many additional enhancements. Like automatic 
UCR (Te Tem LTC com OMT Teme] eT esa 
of termcap, so FoxBASE can run on virtually any 
terminal. And, with some versions, a two billion 
CRO CO Ml em] A 


Multi-user Versions: 
Xenix® $995. MultiLink™ $995. 
IBM-PC NET™ $995. 
ST oma RSENS 
MS/PC-DOS™ $395. AOS/VS $995. 
WR ay ye RU 
Call or write Fox Software today. 


FOxBASE & 


FOX SOFTWARE, INC. 


27475 Holiday Lane, Perrysburg, OH 43551 
419-874-0162 
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9 TRACK TAPE CONTROLLERS 
AND 2” TAPE SUBSYSTEMS 


MODEL TC-PC 


TC-PC is a high performance 9-track tape 
controller for the IBM-PC with these important 
features: 
Reads and writes industry standard %-inch 
tape 
Compatible with most formatted tape drives 
Standard 8-bit parallel recording with parity, 
and read-after-write verification ; 
Switch selectable I/O address (four contiguous 
ports required for operation) 
Maximum data transfer rate of 192,000 bytes 
per second 
Record length from 1 to 65,535 bytes 
Supports up to 8 tape transports 
Jumper selectable DMA channel 
Modes: PE and NRZI at 800, 1600, 3200 and 
6250 bytes/inch 
Installable device drivers allow creation of 
application programs which run under IBM 
XENIX and MS-DOS 
Operates with IBM-PC and -XT; Compaq 
Portable; Zenith PC-150; Sperry PC; the 
Leading Edge Computer, and other 100% 
IBM-PC compatible equipment. 


MODEL TC-50 

TC-50 offers all the standard features of the TC- 

PC with these additional enhancements: 
Maximum data transfer rate of 400,000 
bytes/second; 904,000 bytes/second with 
memory option 
Operation with a wider range of IBM- 
compatible machines, including IBM-AT; 
Compaq Desk Pro; ATT 6300 and others 


XENIX and MS-DOS are Registered Trademarks of Microsoft Corp 

IBM-PC/AT/XT are Registered Trademarks of International Business Machines Corp 
Compaq Portable and Compaq Deskpro are Registered Trademarks of Compaq Corp 
AT&T 6300 AT&T Information Systems Corp 

Sperry PC Sperry/Univac Corp 

Zenith PC-150 « Zenith Data Systems 

Leading Edge is a Registered Trademark of Leading Edge Products, Inc 


A variety of software utilities is supplied as part 
of the TC-PC and TC-50 packages, including: 


e DEPOT (Data Exchange Program with Optional 


Translation) 

DEPOT provides a means to transfer data 

between system disk and magnetic tape, 

allowing: 

— Data interchange from tape to disk, and 
disk to tape 


— Conversion from ASCII to EBCDIC, and vice 


versa 

— Positioning to arbitrary location prior to 
data read 

— Specification of record length and block 
factor when writing from disk to tape; 
allows deblocking when reading from tape 
to disk 

— Multiple operations to be specified froma 
command file 


¢ TAU (Tape Archive Utility) 
— Provides individual file backup and restore 
— Allows use of MS-DOS wild cards such 
as ' 
= Provides disk drive selections for I/O 
— Changes pathname selections from within 
TAU 
— Provides data encryption for security 


WARRANTY 


All Overland Data products carry a 30-day 
unconditional money-back guarantee, and are 
warranted for one year, parts and labor. 


OVERLAND DATA, INC. 


5644 Kearny Mesa Road #A 
San Diego, CA 92111 
Tel. (619) 571-5555 
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¢ Input formatting via picture clause 
¢ Unlimited input validation 


¢ Field specific help messages 


dollar signs, asteriks, and commas 


¢ Current field highlighting 
¢ Fast, easy, and bulletproof 


: A well planned, fully integrated pro- 
=| gramming system complete with pull 
7 down menus & user help system! 


Vitamin C+ $149.95 


4 Includes more features than there is 
4 room to mention, all source code, 






¢ Individual field color/attribute control 


¢ Status line for added field specific prompts 
¢ Right-to-left numeric input with floating 


¢ Insert/delete, next/previous field, etc 


“4 More than just another function library! 
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Vitamin C 


SCREEN I/O FEATURES INCLUDE: 
¢ dBase-like atsay(), atget(), readgets() 


PERFECT WINDOWS 
¢ Automatic interface with 
all screen I/O functions 

¢ Full overlay and restore 

¢ Multiple virtual screens 

¢ Full collision protection 

¢ Automatically keeps I/O 
within window boundries 

e Grow, shrink and move 

¢ Word wrap & margins 

¢ Print to or scroll any 

window without colision even 

if it is overlayed by another! 

e Much, much more! 


CREATIVE PROGRAMMING 
(214)243-6197 
Box 112097 
Carrollton, Texas 75011-2097 
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{ manual, tutorial and sample programs. No royalties on your applications. 
For most MS-DOS C compilers! Soon for UNIX / XENIX ! Include $3 
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Prices & features subject to change without notice. Call for other products. 
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systems out now, and in use on about 
fifty machines. We’re semi-rural, and 
the power fluctuation during thun- 
derstorms has to be seen to be be- 
lieved, yet I’ve never (knock wood) 
lost a database from that source, 
since I started using the pseudo-close. 

“So right now, I’m stuck. I can’t 
move two of my systems to DOS 3.x, 
and the new one isn’t even in the ball 
park ... So this tale ends with ques- 
tions. Do you know anything of help 
in this area?” 

Actually, even the DOS 2.1 manual 
(pages 4-10) said that the maximum 
number of handles that a process 
could have concurrently open was 20, 
but that the maximum for the system 
was 99. This apparently includes 
background tasks such as the print 
spooler. Perhaps they just didn’t en- 
force the process maximum. The 
manual for DOS 3.1 specifies the 
maximum for the system can be in 
the range 8-255, but again the maxi- 
mum per process is 20. For those of 
you who are still using FCBs for 
whatever reason, be warned that DOS 
3.1 puts some new and fairly strict 
restrictions on the use of FCBs when 
the file sharing module is also loaded. 
The default maximum number of 
FCBs that can be simultaneously 
open is 4. If you try to open more 
than your maximum, DOS unilateral- 
ly closes the least recently used FCB. 
You can increase the maximum al- 
lowed number of simultaneously 
open FCBs by a command FCBS=nn 
in the CONFIG.SYS file, just as FI- 
LES=nn works for handles. This is 
an omen, I believe, that FCBs are as 
doomed as the dinosaurs. 

Microsoft and IBM have issued 
particular warnings about use of 
FCBs in the networking environment. 
If you use an FCB to access a file and 
fail to close it (a very common thing 
to do when you are using the file for 
read only), the system can bog down 
due to excessive connections accumu- 
lating across the network. Also, they 
remark that moving FCBs around in 
memory after they are opened can 
cause problems. 

Dan proceeds: “Tale two is slightly 
more amusing. When I got my AT, 
and then started hearing all the terror 
stories about the hard disk, I consid- 
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ered myself very fortunate when I 
didn’t encounter any ... for a while. 
Then I had to load a 5 Mbyte data- 
base, and my trouble started. After 
several days of frustration, I nailed 
my friendly dealer to the wall, and 
IBM emergency shipped a replace- 
ment hard disk, which made life a lot 
better. In the interim, I did several 
interesting things. I put a trap in the 
program so that any time the I/O 
failure occurred, I’d get control. I 
was running under DOS 3.0, of 
course. The first thing I discovered 
was that when the disk glitched, the 
error code that DOS gave me back 
had no relation to disk I/O at all. In 
fact, DOS kept insisting that I was 
‘out of memory.’ On a half megabyte 
machine with one small applica- 
tion?—not bloody likely. 

“The next thing I discovered was 
that if I simply tried the operation 
again, by looping back to the inter- 
rupt, 99% of the time the thing 
worked happily on the second try. 
Very interesting! Then I discovered 
by accident that I was running with 
VERIFY=OFF. So I changed to 
VERIFY =ON, and got a whole new 
set of behavior patterns. Different er- 
ror codes, and the fail ratio went way 
down. Running in this mode, the 
problem seemed to be occurring 
when DOS encountered something it 
thought was a bad track, so I off- 
loaded my 20 Mbyte disk, and refor- 
matted. Oh boy. The plot thickens 
like glue. I could run FORMAT repet- 
itively, and every time I ran it I would 
find a different set of ‘bad tracks.’ 
There didn’t even seem to be a consis- 
tent pattern. I believe it did have a 
relationship to something, but as near 
as I could detect, it was the phases of 
the moon, or the position of Jupiter. 

““T won’t bore you with more of the 
experiments that cost me about ten 
days of time, but I will tell you the 
punch line. We all heard about the 
hard disk problems in all of the trade 
journals. IBM replaced hard disks left 
and right, and the disk vendor was 
the bad guy. Very interesting, since, 
when I got Version 3.1, all the prob- 
lems disappeared. Now DOS gives 
back the correct error codes. Now 
FORMAT is at least consistent.” 

Dan’s second tale is the latest of a 
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raft of mutually exclusive explana- 
tions of the mysterious AT hard disk 
problems. We have heard that the 
original hard disk was no good be- 
cause the vendor tried to ramp up 
production too fast (and a recent re- 
view of the CMI hard disk showed it 
to be much more shock-sensitive and 
error-prone than its competitors); 
that the FORMAT program had a 
bug that prevented it from actually 
checking the second half of the 20 
Mbyte hard disk; that the disk con- 
troller had design or component 


problems; and so on. Throughout 
most of this time, the official IBM 
press flacks insisted that everything 
was wonderful and there was no AT 
disk problem at all. It certainly 
makes one apprehensive about the 
position we'll all be in if IBM man- 
ages to knock off all its competitors in 
the PC market. 


DDJ 
(Listing begins on next page) 
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Do you know where your bugs are 7 


This C programmer is finding his bugs the hard way ...one at a time. 
That's why it’s taking so long. But there’s an easier way. Use 


@ 
PC—Lint 
PC—Lint* analyzes your C programs (one or many modules) and uncovers 
litches, bugs, quirks, and inconsistencies. It will catch subtle errors before 
ey catch you. PC—Lint resembles the Lint that runs on the UNIX* O.S., but 
with more features and some awareness of the 8086 environment. 


© Full K&R C 


¢ Supports Multiple Modules—finds incon- 
sistencies between declarations and use 
of functions and data across a set of 
modules comprising a program. 


© Compares function arguments with the 
associated parameters and complains if 
there is a mismatch or too many or too 
few arguments. 


e User-modifiable library description files for 
most major compilers. 


¢ All warning and information messages 
may be turned on and off globally or 
locally (via command line and comments) 
so that messages can be tailored to your 
programming style. 


@ All command line information can be 
furnished indirectly via file(s) to automate 
testing. 


e Use it to check existing programs, 
programs about to be exported or im- 
ported, as a preliminary to compilation, or 
prior to scaling up to a larger memory 
model. 


¢ All one pass with an integrated pre- 
processor so it’s very fast. 


¢ Has numerous flags to support a wide 
variety of C’s, memory models, and 
programming styles. 


© Price: $139.00 MC, VISA 
(Includes shipping and handling) PA residents add 6% 
sales tax. Outside USA add $10.00 

¢ Runs under MS-DOS* 2.0 and up, with a 
minimum of 128Kb of memory. It will use 
all the memory available. 


Trademarks: PC—Lint (Gimpel Software), UNIX AT&T), 
MS-DOS (Microsoft). 


GIMPEL SOFTWARE 


3207 Hogarth Lane ® Collegeville, PA 19426 
(215) 584-4261 
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16-Bi f Lis f ing (Text begins on page 102) 


0000 


OON OVI WD — 


10 0000 
11 0000 


16 0003 


22 0007 


27 0008 


32 0108 


39 010C 
40 0110 


~~ 
Os 
Woon 


50 0114 
51 0117 
52 O11A 
53 011D 
54 0120 
55 0123 
56 0126 
ay, 0129 
58 012C 
59 012F 
60 0132 


67 0135 
68 0137 
69 0139 
70 0138 
71 013D 
72 0140 
73 0142 
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0200 
4000 


E9 


010B R 


Ge. 
010B R 


O2 
010B R 


0100 [ 


CB 


80 
80 


25 


25 
25 
25 
25 
25 
25 
25 


Ea 


6A 
6A 
6A 
68 


68 


00 


51 00 00 
51 01 00 


0200 
4000 
0040 
0042 
4200 
0200 
4000 
0040 
0042 
4200 
4200 


00 
7F 
FF 
80 
0080 
FF 
OOFF 


f 


page 
title 
- 286C 


55,132 
Microsoft Assembler Bugs 


> Some IBM PC Macro Assembler 2.0 "features" 


: contributed by Robert Blair 


foo 


foos 


foobar: 


‘ 


segment para public 'CODE! 


assume 
proc 


jmp 


dw 


dw 


db 


ret 


cs:foo 
far 
foobar 
; this bug causes link errors if 
; the offset is larger than 256. 
; the error is 
; 'fixup offset exceeds field width! 
2 dup (offset foobar) 


; this will work ok 
2 dup (foobar) 


256 dup (0) 


it appears that if any calculations are required, the compiler 
truncates after the first two bytes. The assembler reference 
manual p. 2-15 states this is done for the small assembler but it 
does it for both assemblers. 


fooi 
to 
fc2 


= 
a 


7 an op 


’ 


‘ 


80286 


> an op 


dd 
dd 


record 
equ 
equ 


and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 


60*60*24 * incorrect 
86400 : correct 


- Now try HIGH and MASK operators together 


Vis tert, (555, 1621, F931, F621, 778 


0200h 
4000h 
; Immediate data should be 

ax,mask 5 ; 0200h 
ax,mask f2 ; 4000h 
ax,high (mask f2) - 0040h 
ax,mask f5+high(mask f2) » 0240h 
ax, (high(mask f2))+(mask f5) x 0240h 
ax, fc ; 0200h 
ax, fc2 > 4000h 
ax,high fc2 ; 0040h 
ax,fcithigh fc2 > 0240h 
ax, Chigh( fc2))+(fc1) : 0240h 
ax,fcl or high fc2 s 0240h 


PUSH IMMEDIATE instruction bugs 
code of 6A requires one byte of immediate data 
code of 68 requires two bytes of immediate data 


push 
push 
push 
push 
push 
push 
push 


0 = 6a00 correct 
127 6a7f correct 
-4 - 6aff correct 


128 ; should be 680080 
word ptr 128 ; generates correct code 
255 should be 6800FF 


- =e * - - =e & 


word ptr 255 ; generates correct code 
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74 0145 6A FFFF push Offffh ; should be 6aFF or 68FFFF 


75 0148 6A 34 push byte ptr 1234h ; lost data with no error 
76 
77 
78 > I have to define my data before use or tell the assembler 
79 ; where it is. Multi-pass compilers should be smarter 
80 : than this 
81 
82 O14A 2E: D7 xlat fred ; causes (spurious) phase error 
83 ; message but generates right code 
84 
85 014C 2E: D7 xlat cs: fred ; works ok 
86 
87 FF [ fred db 255 dup (0) 
Ett Gage tis ee 6:Phase error between passes 
88 00 
89 ] 
90 
91 
92 
93 ; This bug is not very serious because the only thing wrong is 
94 ; the assembly listing. The generated code is correct but the 
95 ; listing of the generated code is not very neat. 
96 
97 U24C OD 3D [D OA db 13,10,13,10,61 dup ¢'-'),13,10 
98 2D 
99 ] 
100 OD OA 
101 
102 
103 O28F foos endp 
104 O28F foo ends 
105 end foos End Listing 


LISP 


The preferred symbolic processing language 
of the Artificial Intelligence Community 


: Production 
catch the next micro-wave with CPU Operating Production Learn plus Learn 


UO-LISP cone “watem System System System 
850° 185°° 
150°° §500 18500 


Not “just another pretty dialect” but the most 
powerful implementation of LISP available in 
the micro market place. For the professional 
engineers, researchers, and educators, UO- 
LISP maintains the power and flexibility 
inherent in LISP while providing the expected 
functionality of mainframe LISP systems. (+) 
UO-LISP steps beyond the competition 


and provides a real source to native code For MORE DETAIi. AND TO ORDER: 
compiler. Send for FREE brochures and order forms. 


NORTHWEST COMPUTER ALGORITHMS 


P.O. Box 1747, Novato, CA 94948 
(415) 897-1302 


available soon 


125° 
8000 
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MAC TOOLBOX 


Introduction to Using Your MacSCSI Host Adapter 


by John Bass 


The MacSCSI host adapter was de- 
signed to work with most SASI- and 
SCSI-compatible controller cards. It 
is also a reasonable starting point for 
other custom Mac interfaces. Source 
software written in Aztec C is provid- 
ed for custom configuring your sys- 
tem. If your controller is Xebec 
S1410 compatible you should be up 
and running with little trouble. 


Changing the Parameters for the 
Drive and Controller 

For controllers other than the Xebec 
S1410, you may need to modify the 
last byte of the format, read, and write 
commands to reflect the vendor-spe- 
cific requirements. The Xebec $1410 
uses this byte to encode the step rate 
for the drive—as shipped, the code is 
set up to use a Seagate ST506 drive 
with the half-step strap enabled. If 
you are using a Xebec $1410 with an- 
other drive, consult your controller 
manual for the correct drive code to 
use. Then change the cmd.sc_vendor 
assignment from | to the correct 
drive-type code. 

Because the Xebec defaults to an 
ST506-drive configuration we didn’t 
need to issue any additional com- 
mands to define the drive configura- 
tion to the controller. This is an area 
that is very vendor specific—read 
your controller documentation very 
carefully. You will want to read the 
descriptions for the format, read, and 
write commands closely. Also check 
the error-code definitions carefully 
because they vary greatly between 
some controllers. 

You may need to issue a Set Media 
or Set Mode command that defines 
the drive parameters for number of 
heads, cylinders, write precomp, write 
reduce, and so on. Some drives, such 
as the Xebec Owl, have an embedded 
controller and don’t need such a setup 
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parameter. Some controllers encode 
the parameters at format time and 
write them on the disk for future use. 
Other controllers require a Mode Se- 
lect or other command to set the drive 
parameters prior to the first format, 
read, or write command. 

The long evolution from early 
SASI controllers to the current pro- 
posed SCSI specification has left a lot 
of nonconforming controllers around 
the marketplace, and many more 
nonconforming controllers are likely 
to be produced before the standard is 
finished and adopted. Until then, the 
software drivers for each host adapt- 
er will need to be customized per con- 
troller. 

A copy of the current SCSI (ANSC 
X3T9.2) specification is available 
from the American National Stan- 
dard publications office. For NCR- 
5380 information contact your local 
NCR Microelectronics representative 
or write to the NCR Microelectronics 
Division, 1635 Aeroplaza Dr., Colo- 
rado Springs, CO 80916; (800) 525- 
ead ee 


Mounting Drives Inside or 
Outside the Mac 
Several 5-, 10-, and 20-megabyte 3'4- 
inch drives are now on the market, 
and controllers in the same form fac- 
tor are available as well. The easiest 
way to mount a 34-inch drive, con- 
troller, and power supply internally is 
to fabricate a sheet metal and/or 
Plexiglass mount and screw it inside 
the plastic back of the Mac. To get 
AC for your power supply, install a 
power cable to the video’ board 
after the switch and AC filters. Be 
sure to leave a long enough service 
loop on both the power and SCSI 
cables to make getting the back off 
easy. 

Other internal mounting configu- 


rations require more attention to 
sheet metal design and choice of con- 
troller, drive, and power supply. Con- 
vection cooling can be enhanced by 
mounting everything on the right side 
and using the sheet metal and Plexi- 
glass to form a chimney extending 
from the bottom to the vents at the 
top of the case. EMI fields from the 
power supplies, flyback, and yoke 
coils present some problems in get- 
ting the disk to operate without er- 
rors—proper selection of shielding 
material and position is critical. 

The easiest way to interface drives 
to the MacSCSI is to mount them ex- 
ternally in a separate box, so that 
physical mounting, heat, and EMI 
problems are less severe. Several man- 
ufacturers have standard line enclo- 
sures. Some of these enclosures are 
complete with power supply, cables, 
fans, and maybe a drive of your 
choice. 

External drives require an external 
cable. The SCSI standard specifies an 
EMI shielded cable, plug, and header 
assembly. We use AMP part number 
1-499977-0 for the panel-mounted 
connector and AMP part number 
102793-4 for the ground plane 
(shield assembly) that mates with the 
connector. Use the ground plane only 
if you plan to use a SCSI standard 
shielded cable—it will interfere with 
a standard nonshielded IDC ribbon- 
cable connector. | 


Installing the MacSCSI Board 

Getting the back off a Mac requires a 
Torx 5 screwdriver with a long shaft. 
There are five screws: two are located 
at the top in holes under the handle, 
two are on the back toward the bot- 
tom above the connectors, and one is 
located behind the battery cover. 
Carefully use a wooden ruler or the 
battery cover to ease the crack along 
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the front seam apart—do not use a 
screwdriver as a pry because the case 
plastic is very soft and will show pry 
marks. 

Remove the power and floppy ca- 
bles from the digital board, then 
gently slide it out of the sheet metal 
frame. Place the board on a table 
with the keyboard connector toward 
the back and the other connector 
near you. Lay the MacSCSI board 
near the ROMs with the SCSI header 
near you. Remove and transfer both 
of the Mac ROMs onto the MacSCSI 
board, then plug the MacSCSI board 
back into the ROM sockets. 

Now clip the miniplug onto pin 8 of 
the TSM PAL located at D1 on the 
right edge of the board. Lay the clip 
flat against the board alongside the 
15.667200 crystal and secure it with 
a piece of masking tape across the 
crystal and over the edge of the 
board. Route the wire between the 
switches and toroid coil and continue 
alongside the metal shield to the 
MacSCSI board. Replace the digital 





Fast, compact, high quality, 
easy-to-use CP/M system 





BOOKSHELF” 
Series 100 


board in the frame, flexing slightly to 
pass the MacSCSI header past the 
edges of the frame. Be careful not to 
pull the board out of the ROM sock- 
ets. Cable the SCSI port as required, 
reconnect the power and floppy ca- 
bles, and reassemble the case. 


Bringing Up the System for the 
First Time 
Once you have the system cabled up 
and have made any required software 
changes, try formatting the drive. 
Watch for the drive to be selected. 
On some drives you can see the posi- 
tioner step from track to track, and 
on others you may be able to feel the 
drive stepping. Formatting takes a 
while—for 5- and 10-megabyte 
drives it may take several minutes, 
and 100-megabyte drives may need a 
half hour. The format routine initial- 
izes the Mac file system by writing a 
volume header and clearing all other 
blocks and then rereads all blocks to 
check for errors. 

If you have problems with Aztec C 


Priced from 
$895.00 


you can add printfs to the C I/O rou- 
tines and follow the progress. Once 
you have the format routine and I/O 
routines running, compile and link the 
driver with the I/O routines. 

If you are connecting to something 
other than a disk you can simply in- 
clude the I/O routines in your appli- 
cation and drive the SCSI bus directly. 


Miscellaneous Comments 

We have used MacSCSI under Finder 
4.1 and Aztec C Shell 1.06D and F 
with a nonpartitioned 5-megabyte 
drive. Aztec C Shell and environment 
seem to run well even with a very 
large number of files. Finder has 
some limits you should keep in mind. 
On large volumes it gets pretty slow 
after 150 files. Finder also crashes 
sometimes when too many files get 
created. Deleting some files or the 
desktop under Aztec C sometimes 
makes it happy; at other times it 
seems that you need to back up the 
disk under Aztec C Shell and refor- 
mat the volume. We are working with 


Release 2.0 


C-INDEX 


10MB System 
Only $1645.00 


Variable Length Record Management For C 






C-INDEX is a state-of-the-art data management 
function library for C programmers. Ideal for all 
data and text based applications. No other package 
can give you the performance, capability, and port- 
ability of C-INDEX. To make sure you are a satisfied 
customer, we offer a 30 day money-back guarantee. 
Ask us about it. 


¢- vaniable length data storage with B+Tree indexing 
«high performance, easy to use 


Features 
@ Ready-to-use professional CP/M ® Comprehensive Software Included: . large and small models, fully transportable source 
computer system @ Enhanced CP/M operating system *IBM PC format: Lattice, Microsoft, C86, others 


with ZCPR3 
@ Word processing, spreadsheet, 
relational database, spelling checker, 


@ Works with any RS239C ASCII terminal 
(not included) 


@ Network available 


* Macintosh format: Consulair, Manx, others 


© Compact 7.3 x 65 x 10.5 inches, Bac Soe ence etek C-INDEX/FILE ($99) Object code package. 
12.5 pounds, all-metal construction @ Operator-friendly shells; Menu, 


C-INDEX/PRO ($195) Partial source code. 
no royalties. 


C-INDEX/PLUS ($395) Complete transportable 
source code, no royalties. 


stems 


2210 Wilshire Blvd., Suite 289 
Santa Monica, CA 90403 
213/394-0796 


®@ Powerful and Versatile: 

® Based on Little Board/PLUS single- 
board computer 

@ Two RS232 serial ports 

®@ One Centronics printer port 

@ One or two 400 or 800 KB floppy 
drives 

@ 10-MB internal hard disk drive option 


Friendly™ 

@ Read/write and format dozens of 
floppy formats (IBM PC-DOS, KAYPRO, 
OSBORNE, MORROW ... ) 

® Menu-based system customization 

@ Expandable: 

@ Floppy expansion to four drives 

® Hard disk expansion to 60 megabytes 

@ SCSI/PLUS™ multi-master I/O 
expansion bus 
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Apple to find the solutions to these 
problems. 

We have used the driver with and 
without a cache with some interesting 
results. For small cache sizes the over- 
head of maintaining the cache slows 
the overall operation down. For the 
Aztec C environment the minimum 
size is roughly the sum of all the pro- 
grams, libraries, and include files in 
use—it is easier to start up the RAM 
disk and copy everything to it. For 
large cache sizes it is a pain to run 
large programs or the switcher be- 
cause you need to restart the driver 
with a smaller cache size. The overall 
conclusion for our working environ- 
ment is that, although the cache can 
create RAM-disk speeds, it sometimes 
creates floppy speeds. The MacSCSI 
hard disk is nearly as fast as the RAM 
disk anyway, and maintaining the 
cache just becomes a headache when 
switching environments. 

Another minor annoyance is that 
you can’t remount the MacSCSI vol- 
ume if you eject it from an open 
box—never do so. We are working on 
adding the code to trap the ejects and 
ignore them. The eject solution, mul- 
tiple volumes via partitions, and 
other improvements will be available 
in our 2.0 software release within a 
few weeks. 

We are collecting changes for 
other controller-and-drive combina- 
tions to be available on our update 
disk. If you would like to share your 
changes, send us a disk with your 
modifications and we will return it 
with the current updates. Mail your 
changes to Fastime, P.O. Box 12508, 
San Luis Obispo, CA 93406. 


DD} 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 198. 
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Ta C86 VERSION 2.3 with Source 


Level Debugging Support 


The C language has rapidly become the development language of choice 
for applications ranging from Operating Systems to Accounting Packages. 
WHY? Its structured approach and extreme portability make it perfectly 
suited to today’s fast-paced environment. 

Of all of the C Compilers available for PC/MSDOS, more programmers 
choose COMPUTER INNOVATIONS’ C86. WHY? Because it’s part of a 
COMPREHENSIVE family of C products with an unparalleled reputation for 
performance, reliability, and stability. 


C86 2.3 C COMPILER 


C for PC/MSDOS began with C86 and today it remains perhaps the most solid, stable 
C Compiler available. Even competitor's ads show C86 as a consistent top level performer 
in benchmark testing. 

Version 2.3 offers a host of new features including source level debugging support and 
a 40% boost in compilation speed. Call for complete specifications.. 
COST: $395 UPDATE TO 2.3: $35 w/old diskettes NOT COPY PROTECTED 
CALL ABOUT VOLUME DISCOUNTS 


LEARN C INTERACTIVELY WITH INTRODUCING C 


Intimidated by rumors about the difficulty of learning C? Need to train your staff quick- 
ly? INTRODUCING C can help. INTRODUCING C combines a thorough, self-paced 
manual with a unique C interpreter to provide a fast, efficient method of learning C. 
Designed for both professional and casual programmers, it provides a comprehensive 
understanding of important C concepts such as standard K&R syntax and operators, full 
Structures and unions, arrays, pointers, and data types. Requires IBM PC, XT, or AT with 
one disk drive and 192K bytes of memory. 

COST: $125 - NOT COPY PROTECTED 


Ci PROBE SOURCE DEBUGGER 


Take advantage of C86 2.3 source level debugging support with C/ PROBE. Cut down 
program development time and save money! Cl PROBE is highly economical yet has the 
features of debuggers costing far more. 

COST: $225 - NOT COPY PROTECTED 


C-TERP C86 COMPATIBLE INTERPRETER 


The C-TERP INTERPRETER is a full K&R implementation that allows you to write code 
and execute it immediately without the compile and link steps. Once you have your pro- 
gram running with C-TERP you can compile the code (without alterations) with C86 for 
fast, efficient executable files. C-TERP requires 256K, 512K is recommended. 

COST: C86 version - List Price: $300, Special Computer Innovations Price $250. 
Sat anes C86 & Lattice version - List Price: $400, Special Computer Innovations 
rice $350. 


Start With Us, Stay With Us 
Computer Innovations offers a complete range of products that let you 
enter the C environment and create applications with the most advanced 
set of development tools available. Unparalleled tech support assures that 
you're always at the height of productivity. 


To order call: 800-921-01 69 
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980 Shrewsbury Ave., Tinton Falls, NJ 07724 e (201) 542-5920 
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by W.E. Wilson 


Software running on a Z80-based sys- 
tem under CP/M-80 will frequently 
perform better than comparable soft- 
ware running on an IBM PC under MS 
DOS. For example, Microsoft BASIC- 
86 is actually slower on the IBM PC 
than BASIC-80 on a Z80-based sys- 
tem. Programs running under CP/M- 
80 also are frequently smaller than 
their counterparts on MS DOS. Trans- 
late a Z80 assembly-language pro- 
gram into 8086 assembly language 
and watch the code expand. 

Sixteen-bit systems do have a num- 
ber of advantages over their 8-bit pre- 
decessors. You can address more mem- 
ory and can have better, even color, 
graphics. The PC can communicate 
easily with mainframe systems and will 
probably be more compatible with fu- 
ture developments than the older 8-bit 
systems. On the other hand, there are 
still many more software packages 
available for CP/M than there are for 
MS DOS, some quite good and very 
reasonably priced. 

When comparing Z80-based sys- 
tems to the IBM PC, there are some 
basic facts that you should keep in 
mind. First of all, the limited ad- 
dressable memory space of 8-bit sys- 
tems used to force programmers to 
write tight, rapidly executing code. 
With the advent of 16-bit systems 
and more addressable memory space, 
software developers were no longer 
compelled to keep code size small, 
and they shifted to less efficient pro- 
gramming techniques, including 
writing in system-independent, high- 
level languages. Second, most popu- 
lar 16-bit programs were originally 
written for 8-bit systems. Developers 


W. E. Wilson, Washington State 
University, Nuclear Radiation Cen- 
ter, Pullman, WA 99164 


114 


have often moved these programs to 
the PC by translating the 8-bit code 
line by line into the equivalent 16-bit 
code. The result is that much of the 
potential efficiency of the 16-bit sys- 
tems has been lost. For example, 
many of the spreadsheets that run 
without any problems on a 64K 8-bit 
system require more than 128K ona 
16-bit system. Third, the memory 
overhead for the MS DOS operating 
system is so much greater than the 
overhead for CP/M-80 that a 128K 
PC is approximately equivalent to a 
64K CP/M-80 system. Finally, the 
5%-inch floppy disk drives on a PC 
are as slow as molasses in January 
when compared to the typical 8-inch 
drives on the older CP/M-80 systems. 


Mini System Software for a 
Micro 

Back in the days before the invention 
of the processor on a chip and the de- 
velopment of modern micro systems, 
memory was very expensive. Mini- 
computer companies such as Digital 
Equipment Company provided over- 
laying linkers for use with their com- 
puters. In the early ’70’s the institu- 
tion where I worked had a DEC 
PDP-15 with 64K of memory. DEC 
provided a software package called 
Chain and Execute that allowed you 
to run a very large program on the 
PDP-15 by segmenting it into a series 
of overlays. I used Chain and Execute 
to run some huge programs written in 
FORTRAN for the IBM 360 on the 
little DEC system. Not very much is 
written on the subject of overlays'!, 
but this technique is used extensively 
in mainframe systems and in mul- 
tiuser operating systems. 


The Linking Process 
The creation of an executable pro- 
gram from a number of source files 


involves several steps. First, the 
source files are individually read by 
the compiler and converted into one 
or more object modules. Some com- 
pilers produce relocatable object 
code directly. Small-C and its deriva- 
tives generate assembly-language 
output that must be assembled. The 
following discussion applies to com- 
pilers of the latter type only. 

It is not practical to have the com- 
piler generate all the code needed for 
each module. Instead, code is gener- 
ated only for operations specific to 
the particular module. General-pur- 
pose functions and subroutines from 
the run-time library are merely refer- 
enced by the compiler and only later 
linked into the program. These exter- 
nal references are “place holders” 
into which absolute addresses are 
eventually placed. For functions and 
variables defined within the module, 
the compiler generates references rel- 
ative to the beginning of the module. 
This means that if the module is 
eventually loaded at address L, then 
all references will be correct if L is 
added to them. 

An assembler then reads each indi- 
vidual module created by the compil- 
er and generates for each one a relo- 
catable object module. This module 
is called relocatable because it can be 
relocated anywhere in memory. 

The final stage is linking. The link- 
er searches the run-time library for 
any referenced subroutines and func- 
tions. It loads these subroutines and 
functions along with the relocatable 
object modules into their final posi- 
tions in contiguous blocks of memory. 
Finally, it fills in the absolute ad- 
dresses for externals and adjusts the 
relative addresses for internals. 

A standard linker builds programs 
in memory. Thus, the maximum pro- 
gram size is equal to the total memo- 
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ry space minus the space used by the 
operating system and the linker. An 
overlaying linking loader links the 
program on disk rather than in mem- 
ory and thus can link a program that 
will fill the entire available memory 
space or more. There is, however a 
penalty paid in speed. An overlaying 
linking loader must read every file 
twice—once to locate the globals and 
determine the size of the module and 
once to do the actual linking. 


ZLKO 

ZLKO from ZEE MICROWARE is an 
overlaying linking loader for Z80- 
based systems. The most important 
feature of ZLKO comes into play 
when a program is too big to fit into 
available memory space. The stan- 
dard solution to this problem is to use 
the call-next-program technique. This 
technique involves dividing the pro- 
gram into a selected number of seg- 
ments, each small enough to fit indi- 
vidually into memory. Each 
sequential segment except the last 
must load and execute the next seg- 
ment. This method is only supported 
by a few compilers and has a number 
of disadvantages: 


¢ It is not possible to return to a call- 
ing segment 

¢ All segment intercommunication 
must be via disk files 

¢ Selective segment execution is not 
possible 


All of these weaknesses can be over- 
come by using the overlaying capabil- 
ities of ZLKO. 

The user segments the program 
into a small root (main) module and 
one or more overlays, each of which is 
composed of a number of subroutines 
and functions. The subroutines are 
grouped into overlays according to 
criteria selected by the user. ZLKO 
then constructs a multilevel “tree” of 
overlays in which the overlays at any 
given level can call overlays at the 
next lower level. The execution of the 
segmented program begins when the 
root module is executed. The root will 
then activate other overlays by call- 
ing the subroutine “ovrlay” that has 
been linked with the root segment. 
The root segment will stay in memory 
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editing convenience. 
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0100-0102 JP ENTRY | 

0103-0107 Identification Code 

0108-0109 End + 1 of Last Overlay or first free memory ocation above overlay 
system 

010A-010B End + 1 of Root Segment or the start of first overlay 

010C-0114 Eight Character Root File Name 


Byte O-1 Overlay Transfer Address (Load Address) 
Byte2-3 End + 1 of Segment 
Byte 4-11 Eight Character Segment File Name 


Figure 1 
Root and Overlay Segment Headers 


Root (LO) 


pS 


L1iB LIC 


\ 


L2A 
Figure 2 


Structure of the test overlay system 





ROOT (MAIN);OVINIT ,OVRLAY,LO; END; 

END; OVL(LLIC), 
SY MFIL(CTEST); INCL(L1C); 
OVL(1,L1A); END; 
INCL(L1A); - OVL(2,L2A); 
END; INCL(L2A); 
OVL(1,L1B); END; 
INCL(L1B); — DONE; 


, Figure 3 
ZLKO Command File Used to Create Overlay System 


ZLKO Command Summary 
CMND- = Take Command Input From Specified File 
DCOM = Display Common Block Information 
DMAP = Display Global and External Symbols 
DONE = Complete Current Segment and Quit 
DOVL = Display Overlay Structure 
DSEG = Display Information On Current Overlay Segment 
DUND - = Display Undefined Symbols 
END = Complete Current Segment, forces a SRCH 
HELP = Display Command List 
INCL = Include The Listed REL Files in The Current Segment 
OVL = Build Overlay (.OVL) File 
PBSE = Set Program Code Base Location 
QUIT = Quit and Return to CP/M 
RELDMP = Dump Relocatable (.REL) File 
ROOT = Build ROOT (.COM) File 
SRCH = Search Specified (.REL) Library 
STOP = Quit Building Current Segment and Save The Link Table 
SYMFIL = Generate Symbol File For Symbolic Debugger 
2SYM = Suppress Symbols Starting with ? 
TCSW ~~ = Turn Off Module Counting 
Figure 4 
ZLKO Help Command Output 
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the entire time. The overlays will be 
loaded into memory and control 
passed to each as program execution 
proceeds. When an overlay returns 
control to the higher level that acti- 
vated it, the higher level may then ac- 
tivate another overlay beneath itself 
or pass control down one level. Each 
overlay on the same level in the tree is 
loaded into memory starting at the 
same location. 

Routines in an overlay can refer- 
ence any symbol defined within that 
overlay and all global symbols locat- 
ed in any active higher-level overlay 
up to and including the root segment. 
Global symbols and routines in the 
root segment may be referenced from 
any segment. Frequently needed rou- 
tines and functions should be includ- 
ed in the root segment. Routines in an 
overlay cannot, however, reference 
symbols or routines defined in an 
overlay on the same level or in a seg- 
ment lower down the tree. 


ZLKO Usage 

ZLKO places a 21-byte header on the 
root-segment file and a 12-byte head- 
er on each overlay-segment file (see 
Figure 1, page 116). The headers in- 
clude the primary CP/M file name of 
the segment as well as address infor- 
mation. In the case of an overlay seg- 
ment, the overlay name and transfer 
address are used by the ovrlay sub- 
routine to load the overlay. The exe- 
cution process starts at the root seg- 
ment and proceeds by descending 
down and climbing back up each 
branch of the overlay tree structure 
one branch at a time. 

Using ZLKO with C offers one sig- 
nificant advantage over using it with a 
language like FORTRAN. FORTRAN 
employs the call-by-reference tech- 
nique. Hence, arguments cannot be 
passed to a called overlay except by 
means of the COMMON block in the 
root segment. On the other hand, C 
uses the call-by-value technique. 
Thus, values can easily be passed to a 
function in an overlay. C passes the 
arguments by pushing them on the 
stack, and the function in the called 
overlay simply pops them off the 
stack. 

ZLKO does not automatically insert 
code into the root segment to set the 


Dr. Dobb’s Journal, December 1985 


stack pointer because the required call 
to main( ) in the first routine in the 
root segment will take care of setting 
the stack pointer. That is, this opera- 
tion is handled by the C compiler, 
which expands the call to main to in- 
clude setting the stack pointer. 

Most Small-C compilers use the 
symbol _memptr to designate the 
first free memory location above the 
program code space. The Q/C com- 
piler I used to test ZLKO uses the 
symbol $MEMRY for compatibility 
with the L80 linking loader. Under 
ZLKO, the value to be used for 
$MEMRY or —_memptr is stored in 
the 8th and 9th bytes of the root-seg- 
ment header. This value must be ex- 
tracted from the header and stored in 
location $MEMRY or —_memptr in 
the compiled C program before pro- 
gram execution commences. 

This operation is readily accom- 
plished by using the ovinit function 
shown in Listing One (page 119). 
Ovinit must be linked into the root 
segment and must be the first func- 
tion called from within main( ). The 
ovrlay function supplied with ZLKO 
must be linked into the root segment 
following ovinit. Each time an over- 
lay is to be loaded, the user program 
must make a call to the ovrlay func- 
tion using a pointer to the overlay 
name as the last argument of the ovr- 
lay function call. The overlay test 
(see next section) demonstrates the 
use of the ovrlay function. Ovrlay will 
load the specified overlay at the 
transfer address specified in the 
header and then execute the overlay. 


ZLKO Test 

I tested the ZLKO overlaying linking 
loader with a simple overlay system 
written in C. The test program was 
compiled with the Q/C compiler and 
assembled with the CWA assembler 
distributed by The Code Works. The 
structure of the test overlay system is 
shown in Figure 2 (page 116) and the 
command file used to create the over- 
lay system in Figure 3 (page 116). 
The code for the root segment and 
each overlay is presented in Listing 
Two (page 119). Listing Three (page 
125) shows the output that ZLKO 
sent to the console during the test. 
The linking process took 126 seconds 
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and the resulting overlay system exe- 
cutes in | 1 seconds. 


Using ZLKO 

ZLKO is relatively easy to use once 
you understand how to pass to ovrlay 
a pointer to the overlay to be loaded 
by the root segment. There are, how- 
ever, a couple of things you should 
keep in mind. First of all, because the 
input information required by ZLKO 
is extensive, the potential for key- 
board errors is quite high. This prob- 
lem can be solved by using a com- 
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mand file instead of direct input. For 
example, entering the command: 


ZLKO CMND(CTEST); 


causes ZLKO to take its input from 
the command file CTEST.ZLK. Sec- 
ond, you may have trouble getting ac- 
customed to the fact that all com- 
mands require a combination of 
semicolon and carriage return as a 
terminator. Finally, although the 
manual adequately describes the 
proper use of ZLKO, it will not make 
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you an expert at using overlays. All of 
the commands accepted by ZLKO are 
shown in Figure 4 (page 116) in the 
form of a printed copy of the output of 
the ZLKO Help command. ZLKO is 
quite verbose and lets you know what 
is going on at all times. Part of the 
verbosity is because of the fact that 
ZLKO displays each component of a 
command string as it is being parsed. 


Conclusion 

ZLKO Is an easy-to-use, relatively ef- 
ficient overlaying linking loader that 
is particularly useful to anyone using 
a Small-C compiler. ZLKO will allow 
the user to run very large programs 
under CP/M-80 and to construct fan- 
cy software in which a menu-selec- 
tion operation determines which 
overlay (program) is executed next. 
There are at least two other overlay- 
ing linkers available for use with CP/ 
M-80, but they are much more ex- 
pensive than ZLKO and only provide 
a few additional capabilities. ZLKO 
only supports a multiple-file overlay 
file system, whereas some others also 
support a single-file overlay file sys- 
tem that uses the random-access ca- 
pabilities of CP/M-80. A single-file 
overlay system will execute slightly 
faster but is more difficult to con- 
struct and debug. 

Do not discard your older 8-bit sys- 
tem if you can perform the tasks you 
need to accomplish by simply pur- 
chasing an overlaying linking loader 
such as ZLKO. ZLKO is available 
from Elliam Associates, 2400 Besse- 
mer St., Woodland Hills, CA 91367. 


Notes 

| A good discussion of overlays is pro- 
vided by S. H. Kaisler, The Design of 
Operating Systems for Small Com- 
puter Systems, John Wiley, 1983. 
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CP/M Fxchange (Text begins on page 114) 
Listing One 


/* Get addess of first free memory location from ROOT header 
and put it in location SMEMRY. This version is for use with the 
Q/C compiler. Change $MEMRY to _memptr for use with small-c */ 


ovinit () 

# asm 
EXT SMEMRY 
LD HL, (@188H) 7;Get lst free mmry addr 
LD (SMEMRY) , HL 7;Put in SMEMRY 

# endasm 


End Listing One 


me ae ee ee ee re ee ee em ee ee ee ee ee ee ee ee ee ee ee em ee em ee we ee mee me ee me 


-———S— eS SS SS Se ee em em ee ee ew wwe ww wwe ewe ww we we we we ee 


/* Root program L@.C for testing ZLKO with Q/c */ 
#include <qstdio.h> 

main () 

char *ovla, *ovlb, *ovlc; 

ovla = "LIA =) 

ovlb = "L1B " 

ovlc = "L1C = 


/* initialize Root 
ovinit(); 
printf("ZLKO Overlaying Linker Test with Q/C\n\n"); 
printf ("Starting at level zero\n"); 
printf("Call Overlay L1A\n"); 


Segment For Overlays */ 


(Continued on next page) | 
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Richard Vananda 


Time is money and 
the ability to switch 
consoles and run 
more than one pro- 
gram has been a great 
time saver.’ 


Joe Capp 


that is totally 
transparent to our 
customers. By utiliz- 
ing the menu system 
and 4 consoles con- 
currently we are able 
to fully utilize Con- 


one window and Engineer Principal Project Engineer current PC DOS”’ 
switch into an editor Pacific Gas Patrick Sullivan Union Carbide Subbash Chadha 
which increases pro- Transmission Associates, MIS Director 
ductivity.’ Architects Secoin Inc. 
Dennis King 


Executive Vice 
President, Founder 
Applied Voice 
Technology 


Make It Work For You! 


Call (800) 443-4200 for the dealer or sales representative nearest you. 


Concurrent PC DOS is a trademark and Digital Research is a registered trademark of Digital Research Inc. PhoneXpress is 
a trademark of Applied Voice Technology. 


DIGITAL 


Circle no. 163 on reader service card. 


Dr. Dobb’s Journal, December 1985 


RESEARCH’ 


We make computers work.” 





119 


C. P 7 M Ex chang e (Listing continued, text begins on page 114) 
Listing Two 


/* Load Overlay L1A */ 


ovrlay (&o0vla) ; /* Pass pointer to ovlname */ 
printf ("Returned to Level zero from Level one pgm L1A\n"); 
printf ("Next Call Overlay L1B\n"); 


/* Load Overlay L1B */ 


Ovrlay(&ovlb); /* Pass pointer to oviname */ 
printf("Returned to Level zero from Level one pgm L1B\n"); 
printf£("Next Call Overlay L1C\n"); 


/* Load Overlay L1c */ 


ovrlay(&ovlc) ; /* Pass pointer to oviname */ 
printf ("Returned to level zero, Overlay Test Done\n") ; 


-<——S—— SS ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee we ee ee ee ee ee ee ee ee ee 


/* overlay LIA */ 
levella() 


{ 
printf("At Level one, Overlay L1A\n"); 
} 


— oe oe oe oe Se ee Se ee oe Se ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee em ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee ee we we 


/* overlay LIB */ 
levellb() 


{ 
printf("At Level one, Overlay L1B\n"); 
} 


— ee eS Oe Oe ee a em Oe ee ee ee Oe Oe ee ee Se Oe ee Oe ee ee ee Se ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe oe ee 


/* overlay L1c */ 
levellc() 
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THE International UNIX* Event of the Year! 
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UniForum 1986, the International Conference 
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THE premier UNIX conference/trade show. 
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workstations; the interface between man 
and machine, machine and machine, and 
much more. Day-long tutorials provide 
intensive, focused material on specific sub- 
jects in UNIX...while the conference ses- 
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the continuing evolution of UNIX. 
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CP. a M Ex C. hang e (Listing continued, text begins on page 114) 
Listing Two 


char *ovld; 
int valuel, value2, sum; 
ovld = "L2A "3 
printf£("At Level one, Overlay L1C\n"); 
print£("Call Level two, Overlay L2A 5 times\n"); 
/* Load Overlay 2A */ 
valuel = 9, value2 =9; 
while (++valuel < 6) 
{ ++value2; 
printf("At Level one Calling L2A, valuel = %d, value2 = 
$d\n",valuel,value2); 
/* The pointer to the overlay name must be the last parameter */ 
/* The ZLKO "ovrlay" routine uses the value in the HL register- */ 
/* -to find the overlay name but does not alter the stack */ 
/* The called routine must have a dummy last parameter */ 
ovrlay (valuel,value2,&ovld); } 
/* Pass values and pointer to ovlname */ 


int sum; 
retval (sum) 


printf("Back at Level one, Returned sum valuel + value2 =$d\n\n",sum); 


/* overlay L2A */ 
level2a(argl,arg2,arg3) 
/* argl is valuel, arg2 is value2, and arg3 is ovlname pointer */ 


/* dummy arg3 is required to match ovrlay function call in Lic */ 
int argl, arg2, arg3; 
{ 


printf£("At Level two, Overlay L2A\n"); 
printf£("Received parameter valuel =%d, value2 =%d\n",argl,arg2); 

/* Pass sum argl + arg2 back to level one*/ End Listing Two 
retval(argl + arg2); 


PIKt ///// 


Convert Mainframe Reports 
to LOTUS Formats Without Re-keying 


# The data editor that links mainframe reports to micro 
spreadsheets. 


= Move selected report data directly to the spreadsheet; 
reformat, edit, rearrange data—no re-keying! Text and 
numbers! 


(Listing Three begins on page 125) 


COHERENT 


for ne NT 


At last — 


a UNIX compatible O/S with elaborate 
hard disk recovery routines! 


» COHERENT is the best UNIX » Total object code compatibility 
compatible O/S for networking, between the IBM AT, XT, and PC. 
process control and multiuser » Available with UNIX System V 
applications with highly efficient compatible support for 
code generation, configurable interprocess communication 
kernel and flexible disk enhancements and high speed 
partitioning. multiline communication cards 

» Support available for high (up to 38.4 Kbaud). 
resolution graphics, image capture, | Can be easily programmed into a 
mouse and other hardware. turnkey environment. Flexible 

» A complete COHERENT turnkey and runtime licensing 
development environment that available. 
includes a screen editor and source Professional technical support 
code control system. provided. 


To discuss your system requirements call: (604) 294-6201 

















# Accepts any ASCII file, supports all major spreadsheets, 
databases, word processors (Lotus, dBASE, Multiplan, 


mm \{ACROPIK'’ 


Fm | 
Combines All the Benefits of PIK’r Plus: 


# A macro facility—save and replay entire sessions with a 
single keystroke. 





# An unlimited page size—works with reports of any size. 


Both PIK’r and MacroPIk’r offer mouse support, work 
with IBM-PC and compatibles, any mainframe. Customer 
HOTLINE, tutorials and user manual included. 


PIK’r — $95 
SAMKHYA/ CORPORATION 






MacroPIK’r — $249 









47 Sixth St., Suite 3000 Toll Free 
PO. Box 142 (800) 442-0012 US 
Petaluma, CA 94953 (800) 442-5544 CA Systems 


(707) 763-2800 2457 Beta Ave., Burnaby, B.C., Canada V5C 5N1 


COHERENT is a trademark of Mark Williams Co. UNIX is a trademark of Bell Laboratories. IBM AT, XT and 
PC are trademarks of International Business Machines Corp. 





Circle no. 171 on reader service card. 


Circle no. 166 on reader service card. 
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Vol. 1 1976 (item #013) 

The material brought together in this volume 
chronicles the development in 1976 of Tiny BASIC 
as an alternative to the ‘finger blistering,’’ front- 
panel, machine-language programming which was 
then the only way to do things. This is always 
pertinent for the bit crunching and byte saving, 
language design theory, home-brew computer 
construction and the technical history of personal 
computing. 

Topics include: Tiny BASIC, the (very) first word on 
CP/M, Speech Synthesis, Floating Point Routines, 
Timer Routines, Building an IMSAI, and more. 


Vol. 21977 (Item #014) 

1977 found DD4J still on the forefront. These issues 
offer refinements of Tiny BASIC, plus then state-of- 
the-art utilities, the advent of PILOT for 
microcomputers and a great deal of material 
centering around the Intel 6080, including a 
complete operating system. Products just 
becoming available for reviews were the H-8, KIM- 
1, MITS BASIC, Poly Basic, and NIBL. 

Articles are about Lawrence Livermoore Lab’s 
BASIC, Alpha Micro, String Handling, Cyphers, 
High Speed Interaction, |/O, Tiny Pilot & Turtle 
Graphics, many utilities, and even more. 


Vol. 3 1978 (Item #015) 

The microcomputer industry entered into its 
adolescence in 1978. This volume brings together 
the issues which began dealing with the 6502, 
with mass-market machines and languages to 
match. The authors began speaking more in terms 
of technique, rather than of specific 
implementations; because of this, they were able 
to continue laying the groundwork industry would 


follow. These articles relate very closely to what is 
generally available today. 

Languages covered in depth were SAM 76, Pilot, 
Pascal, and Lisp, in addition to RAM Testers, S-100 
Bus Standard Proposal, Disassemblers, Editors, and 
much, much more. 


Vol. 4 1979 (Item #016) 

This volume heralds a wider interest in 
telecommunications, in algorithms, and in faster, 
more powerful utilities and languages, innovation 
is still present in every page, and more attention is 
paid to the best ways to use the processors which 
have proven longevity—primarily the 80801Z80, 
6502, and 6800. The subject matter is invaluable 
both as a learning tool and as a frequent source of 
reference. 

Main subjects include: Programming Problems/ 
Solutions, Pascal, Information Network Proposal, 
Floating Point Arithmetic, 8-bit to 16-bit 
Conversion, Psuedo-random Sequences, and 
Interfacing a Micro to a Mainframe—more than 
ever! 


Vol. 5 1980 (Item #017) 

All the ground-breaking issues from 1980 in one 
volume! Systems software reached a new level 
with the advent of CP/M, chronicled herein by 
Gary Kildall and others (DDJ's all-CP/M issue sold 
Out within weeks of publication). Software 
portability became a subject of greater import, and 
DDJ published Ron Cain's immediately famous 
Small-C compiler—reprinted here in full. 

Contents include: The Evolution of CP/M, a CP/ 
M-Flavored C Interpreter, Ron Cain's C Compiler 





for the 8080. Further with Tiny BASIC, a Syntax- 
Oriented Compiler Writing Language, CP/M to 
UCSD Pascal File Conversion, Run-time Library for 
the Small-C Compiler and, as always, even more! 


Vol. 6 1981 (item #018) 

1981 saw our first all-FORTH issue (now sold out), 
along with continuing coverage of CP/M, small-C, 
telecommunications, and new languages. Dave 
Cortesi opened ‘’Dr. Dobb’s Clinic’ in 1981, 
beginning one of the magazine's most popular 
features. 

Highlights: Information on PCNET, the Conference 
Tree, and The Electric Phone Book, writing your 
own compiler, a systems programming language, 
and Tiny BASIC for the 6809. 


Vol. 7 1982 (item #019) 


In 1982 we introduced several significant pieces of 
software, including the RED text editor and the 
Runic extensible compiler, and we continue to 
publish utility programs and useful algorithms. Two 
new columns, The CP/M Exchange and The 16-Bit 
Software Toolbox, were launched, and we 
devoted special issues to FORTH and 
telecommunications. Resident Intern Dave Cortesi 
supplied a year of *’Clinic’’ columns while 
delivering his famous review of JRT Pascal and 
writing the first serious technical comparison of 
CP/M-86 and MSDOS. This was also the year we 
began looking forward to today’s generation of 
microprocessors and operating systems, publishing 
software for the Motorola 68000 and the Zilog 
Z8000 as well as Unix code. And in December, we 
looked beyond, in the provocative essay, *‘Fifth- 
generation Computers.” 


Complete your reference library. Buy the entire set of Dr. Dobb’s Journals from 1976 through 1983, Bound Volumes 
1-8, for $195.00. That's $34.00 off the combined individual prices—a savings of almost 15%! 





To order by credit card, call toll free: 1-800-528-6050 ext. 4001. Refer to the item 
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C. P A M Ex C hang e (Listing continued, text begins on page 114) 
Listing Three 


OUTPUT FROM ZLKO TO CONSOLE DURING TEST OVERLAY CONSTRUCTION 


~>CMND (CTEST) ; 
CMND ( 
CTEST) <--Command File Input 
ROOT ( 
MAIN) 


‘ 

OVINIT,<-~-Implied Include List 
OVRLAY, 

LO; 

END;<--Searching For Required Modules 


-« Building File on Disk -- 


Loading (@:OVINIT .REL) 
Loading (@:OVRLAY .REL) 
Loading (8:L8 - REL) 
Loading from(®@:CRUNLIB .REL) 


-- Filename -- 
@:MAIN » COM 


-- File Information -- 
P.Size: BEAT Seg.End+l: 1182 
D,Sizes @1C7 
C.Size: 8898 


P.Base: 8186 
D.Base: @FBB 
C.Base: 1182 


SYMFIL ( 
CTEST) <--Creating Symbol File 


OVL ( 
’ 
L1A) 


; 
INCL ( 
LIA) 


Now available with 
8087 Support! 


MTBASIC 


Basic Compiler 


Features: 
Multi-line functions Multitasking 
No runtime fee Windowing 
Handles interrupts Interactive 
Fast native code Compiles in seconds 


MTBASIC is easy to use since you can write programs in an inter- 
active environment and then compile them using only one com- 
mand. MTBASIC has many advanced features like multitasking, 
random file access, formatted I/O, assembly language calls, and 
ROMable code. 


The MTBASIC package includes all the necessary software to 
run in interpreter or compiler mode, an installation program (so 
any system can use windows), demonstration programs, and a 
comprehensive manual. 


Ordering 


MTBASIC is available for CP/M, MS-DOS, and PC-DOS systems 
for $49.95.MTBASIC with 8087 support is available for MS-DOS 
for $79.95. Shipping is $3.50 ($10.00 overseas). MD residents 
add 5% sales tax. MC, Visa, checks and COD accepted. 


ie aD ae 


P.O. Box 2412 Columbia,MD 21045-1412 
301/792-8096 


Circle no. 88 on reader service card. 
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(Continued on next page) 


A Professional Quality Z80/8080/8085 Disassembler 


WHEN YOU NEED SOURCE FOR YOUR CODE 
you need REVAS 3 


REVAS interactively helps you: 
Analyse your software for modification 
disassemble files as large as 64K 
Assign Real labels in the disassembly 
Insert COMMENTS in the disassembly 
Generate a Cross Reference (XREF) listing 


A 60 page manual shows how the powerful REVAS 
command set gives you instant control over I/O to files, 
printer, or console; how to do a disassembly; and even 
how the disassembler works! You get on line help, your 
choice of assembler mnemonics, control of data 
interpretation, and calculation in any number base! 


REVAS runs in Z80 CPM computers; is available on 
8°’ SSSD (standard), RAINBOW, and other (ask) formats 


Price: $90.00 (plus applicable tax), Manual only: $15.00 


REVASCO 
6032 Chariton Ave., Los Angeles, CA90056 
Voice: (213)649-3575 Modem: (213)670-9465 





Circle no. 80 on reader service card. 
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CP/M Exchange 
Listing Three 


OLV ( 
e 
L1B) 


; 
INCL ( 
L1B) 


; 
END;<--Searching For Required 


-- Building File on Disk -- 


Loading (@:L1B - REL) 

-- Filename -- 

8:L1B ~OVL P.Base: 
D.Base: 
C.Base: 

OVL ( 

, 

L1C) 

INCL ( 

L1C) 


; 
END;<-~-Searching For Required 


-- Building File on Disk -- 


Loading (@:L1C » REL) 

-- Filename -- 

@:L1C ~OVL P.Base: 
D.Base: 
C.Base: 

OVL ( 

2, 

L2A) 

? 

INCL ( 

L2ZA) 


? 
END;<--Searching For Required 


-- Building File on Disk -- 


Loading (@:L2A » REL) 
-- Filename -- 
@:L2A ~OVL P.Base: 
D.Base: 
C.Base: 
DOVL; 


~-- Overlay Structure --- 


Name Number P.Base End 
LIA 868090 1182 11B6 
L1B 0001 1182 11B6 
Lic 6802 1182 12F4 
L2A 6893 12F5 138B 
DONE; 


No Segment Under Construction 
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(Listing continued, text begins on page 114) 


Modules 


-- File Information -- 


1182 P.Size: BBBE Seg.End+l: 11B7 
119c D.Size: 8@1B 

11B7 C.Size: 8880 

Modules 

-~~ File Information -- 

1182 P.Size: #8B2 Seg.End+l: 12F5 
1248 D.Size: O@B5 

12F5 C.Size: 8000 

Modules 


-- File Information -- 


12F5 P.Size: 8845 Seg.Endt+l: 138C 
1346 D.Size: 0046 

138C C.Size: 8009 

Parent 

L1c 


End Listings 
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WHO WOULD DIG THROUGH 300 DISKS OF MSDOS X 


SOFTWARE TO FILL 14 DISKS FULL OF GEMS? 





$12.00 STOCKING STUFFERS YOU'LL USE ALL YEAR! 


DISK MS-1 ESSENTIAL UTILITIES 


SWEEP is a powerful replacement for 
COPY. LU86403 makes (and unmakes) 
library files from your programs. 
(Bulletin boards contain many library 
files.) DSKRTN is a fancy disk utility 
which hides files, recovers files, and lists 
first sector of an erased file. WHEREIS 
finds file in subdirectories. SQUEEZE 
and UNSQUEEZE squeeze and expand 
files for faster and cheaper modem 
transfer. Plus WASH and several other 
file manipulators. 


DISK MS-2 ASSEMBLER AND 
DISASSEMBLER 


CHASM is compatible with the IBM 
macroassembler. ASMGEN is a dis- 
assembler whose output is compatible 
with the IBM macroassembler (works in 
64K). MEMBRAIN converts extra RAM 
into a RAM disk. UNWORDSTAR 
converts Wordstar files to ASCII and 
vice versa. FSPOOL is a printer output 
to file redirector and SDIR is a super 
directory program. (And more .. .} 


DISK MS-3 ADVENTURE 


This is the original text-style adventure 
game that has kept whole throngs of 
(otherwise) serious programmers glued 
to their screens. It’s ready to run but we 
also include source in Cll and notes 
about how to expand this adventure 
(or create your Own). Great fun for all 
computer users. 


DISK MS-4 SINGLE USER RBBS 


Turn your PC (or compatible) into a 
bulletin board and get called by the 
world. Includes source. 


DISK MS-5 FILE AND DIRECTORY 
UTILITIES 


UTIL sorts directories, moves files 
between directories, redefines the 
keyboard, and views files. Z sorts files. 
VTYPE is an easier to use TYPE. ST 
pages backwards or forwards through 
files. PROTECT AND UNPROTECT 
prevents accidental (or purposeful} 
erasure of files or programs. 
PCWINDOW a resident multi-function 
routine that handles notepads, timing, 
ASCIl translation etc. Very handy 
Sidekick-like program. 


DISK MS-6 FIG FORTH 
(Includes MS-7, FORTH Source} 


DISK MS-8 THREE GAMES 


CASTLE is a graphic and conversational 
adventure. TREKRUN is a startrek style 
game. BOUNCING BABY is a finger 
exercise that will enthrall a 10-year-old. 


DISK MS-9 PASCAL GAMES, PC 
MUSICIAN, CALCULATOR 


This is Our educational disk. PC 
MUSICIAN lets you write songs right on 
the screen and test them as you go. “| 
amazed my friends when | sat down at 
my computer and played...” The 
PASCAL GAMES aren't all that exciting, 
but the source should give you a good 
Start on creating your Own. 
PROGRAMMER’S CALCULATOR shows 
you how the stack, memory, and CPU 
registers work, plus it’s highly 
calculating. 


Circle no. 64 on reader service card. 


DISK MS-10 
MODEM SOFTWARE 


If you want to talk to bulletin boards 
this is your spot. QMODEM is the 
fanciest of the MODEM7 packages 
we've seen. It’s powerful but easy to 
use. KERMIT is the standard package 
for communicating with mainframe 
(there are versions Of KERMIT for nearly 
all the mainframes). 


DISK MS-11 MULTI-USER RBBS 
12.3 SYSTEM 


Another complete RBBS, this one allows 
more than one user.at a time. 


DISK MS-12 SOURCE OF 
RBBS 12.3 SYSTEM 


DISK MS-13 TEXT EDITOR & 
FORMATTER 


ROFF4 is UNIX-like text formatter, 
PC-Write is one of the most famous 
of the freeware editors. 


DISK MS-14 FORTH 84 


For Super Fast Service Call 
503-382-5060 


The Micro Technical Journal 





Disks $12.00 each Postpaid 


MICRS CORNUCOPIA 
P.O. BOX 223 
BEND, OREGON 97709 
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“All you CPM people 
who wanted to move 
to IBM, but couldn't... 
now you can — and 
bring your CPM 
software with you!” 










From ll 
GTEK, the | 4 
leader in devel- || 
opment hard- |} 
ware and g 






software, 
comes the == 
CPM im 
user's 
dream. 
The i 
majority 
of advances 
being made 
in the computer industry today are 
being made for PC-DOS and MS-DOS machines. 

If you are a CPM user who wanted to convert 
to these operating systems but didn’t because you 
had to abandon or rewrite your CPM programs, 
now you can make your move without losing or 
rewriting a single 
program! 

The dream from 
GTEK is a package 
that makes your 
PC-DOS (IBM PC, 
XT, AT) or MS-DOS 
(IBM clones like 
COMPAQ, Leading 
Edge, Televideo) 
machines think 
they're being run by 
an 8080 or Z80 microprocessor with CPM! 

The GTEK package contains a CPEmulator™ 
and CPM Conversion Utility that allows you to 
read and write popular CPM disk formats such as 
Kaypro and Osborne. 

How easy is it to use? Two steps. (1) Use the 
Conversion Utility to copy the CPM program to 
an MS-DOS or PC-DOS diskette. (2) Use the Bind 
Utility to attach the CPEmulator to your program. 
And that’s it. It’s ready to run. 

You won't see any difference when you run 
the CPM program! Now all the work you did in 
CPM is still valuable when you change to your 
PC-DOS or MS-DOS machine. 

And here’s the happy ending to the dream. 
The CPEmulator is just $199. 


Call GTEK’s CPM Hotline... 
1-601-467-9019 


TEK., 


Development Hardware/Software 

P.O. Box 289, Waveland, MS 39576 
601/467-8048; telex 315-814 (GTEK UD) 
“Registered trademarks. GTEK, CPM, PC-DOS. 
MS-DOS, IBM PC, XT, AT, COMPAQ, Leading 


Edge, and CPEmulator are also registered 
trademarks. 
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If you’ve been using 
CPM on any of these 
machines you can now 
move to PC-DOS or 
MS-DOS operating 
systems. 


¢ Heath/ 


Kaypro « Osborne 
Zenith * Radio Shack » 
Epson ¢ DEC « IBM « Mor- 
row * Xerox * HP « Sanyo 
¢ Intertec * Cromenco * 
Televideo * Compuprox 





Circle no. 95 on reader service card. 


128 



















aaa ie) aa ND) a,4 








Reader Reader 
Service Page _ Service Page 
No. Advertiser No. No. Advertiser . No. 
1X8 AMPRO Compilers, Inc. .. =... 228. 112 64 Micro Cornucopia......... 127 
176 Advent Products Inc. .............. 64-65 110 Micro inlerfaceCor. .........,.... 93 
21. Aftty Compormtion.............. 2, 47 * (NiMCIGHHNE 2.2 ea. 26 
igs BOSofiwate ....... 8 7o 106. MicraSolitions .................. 12 
[59 Blaise Computime ..... 3 .......... 111 * MicroMethods Inc. ................. 90 
161 Borland International............... C4 105 MicroProcessars Unlimited .......... 101 
126 Boston Soliware Works .... 22... 2... S$) 103 Microsmgdh.. =... 101 
li? Byte Works (Ne... 3. ss Le 94 136 Microcomputer Systems Conslts. ..... oh 
63 © UsersGroup.... 101 " Microtee Reseamh =... ..... 76 
* ( Wate Corporation... .. ee. 11 vw) Mitek... 2... 33 
178 Chalcedony. ..... 15 “ Mix Software .................... 67 
Si Cogitate Inc... 101. 128 Morgan Computing Company........ a 
i122 Compuvyiew.............:.......... 45 79 Mystic Canyon Softwate ............ 2] 
127. Computer Control Systems ........... 95 168 NCI... 35 
129 Computer Helper Industries, Inc. ..... 100 72 Northwest Computer Algorithms ..... 107 
96 Computer Innovations .............. 1t3 i362 xOFSSysiems wt 101 
62 Creative Programiming.............. 104 «6(28 OmMotech..... sists I 
* DPDJ Bound Vole .........-.. 2. 2: 124 73 Overland Data ing. 3... ke. 104 
* DOC Piodus. ....... -. 2.52. 108-109 76 Pemonal texing . |... a7] 
* DDI SOurceQOOk «cs 122 S| Pucenix Computer Products ......... C-3 
*. DPJ SUOSCIIDUION «ae, 120 «$139 PRhoeeis Computer Products .......... 2-3 
86 Dalsoli Systems 9. 101 7a Plu Perfect Systems .....,............ 86 
$30. Dalia Base Decisions... 8 99 169 PoorPersonSollware.............. 89 
162 -eemanon 8 92 140 Productivity ProductsIntlL ........... 18 
&/ Digital Research Coniputers ......... G9 143 ProgrammersShop ................ 49 
116 Diversified Educational Enterprises ... 58 141 ProgrammersShop ................ 43 
163 ORL... 119 SZ Prospero. .......«..  .. 61 
179 Path Contes = 3 ...... 62 10] QuiltCompuline  ................. 83 
Bo eon uc. 8 ee, 73. Y4). Rational Systems, inc.,............. 68 
90 Edwari kK. Kean ............3.22. 77 +170 Relational Database Systems......... 53 
* Emeraic Systems Cor... 8 10 SU Kevasco ==... iZ5 
92 Enftelekon Software Systems ......... 60 7% SLR Systems. ........... 9) 
188 Essenital Software ................. 536 471 Saskhya. 123 
165 Everest Solutions =.= i i‘(“(‘#sC(C;#‘(§#C(W## C-2 144 Seidl Computer Enginceringeg ..... 88 
180 ~ExeculveSysiems tgs se 75 BS Semilisk Systems 81 
OS Faleom |... 17 Si Soll Advances... 91 
OA Fox Soliware Ic. 103. til Soli Advantes.........:........ 91 
95 GIkk st tc 128 fi3 SottCralt, inc... ..... .. 2. 11 
e AMPICSOrWde 8 ee. 22 = OO FOCUS ......................—.. 88 
= Oinpel SouwWite....... =... 105 SS. Softaid, inc.................2.,. 125 
O7 (recnleal Sofiware Inc... 7) 115 Software Development Systems... _. 101 
9% Guidance Soliwate .............. =. sO {47 SolutionSystems ................. 118 
131 Hallock Systems Consulianis.......... 20 {51 SolutionSysiems...-.«.ssi‘(‘( i‘(‘é‘é éwijwé#;#C 53 
[32 Habvara Soltworks 8 24 148 SoluttonSystem: .................. 83 
133 Hawaiian Soliware................. 63 149 SolutionSysiems .................. 83 
39 ied. Ul 164 Spruce leciiggiovics ................ 5] 
99 live Systems... ws. Sl 142 State ror sviens........ 8 101 
166 ineico Systems. ................... Iz3 =i72 Sunny Hii Schwa... ... ssi (it 96 
7S lnlolroSysicms .................... 92 144 Sunset lechnclogy ............. 93 
© Wiegra Quality =... «2... 66 [46 Symsok...... 4] 
6> inielliiwate lic... 100 104 Systems Management Assoc........... 39 
100 Kriya ==. 57. |33 TiMSysiems....- «sis 21 
66 Laboratory Microsystems Inc.......... 7) 11/4 TiMsystcis.ttCtCwsti“aCtC#C 23 
67 Lahey Compurersysiens =... =... Si. (75 YM Systems... 25 
Ob Lace tn li? ti? Thelijtanan. 3 ................. 94 
[25 (ileboal Associgies.. 115. «6119 «6Tinvicki inc... 07 
15> LupaiSoliware, tie... 56 150 InmdgSystems.............. .... 112 
GS MACHOL... 9) {20 /ust/eroup-UniForum ............ 121 
Go Magntim Data inc |... a. 118 77 “UniPress Soltware .. .......... so 
109 ManxSofiware...... 32. (54 Vance Info Systems ................. 95 
108 Manx Soliware.................... 7. iS? Vermont Creative Software ............ 87 
102 Mark Willaims ...... gs. is. §12 Wer ic... ....... 9 
70. Martian technologies... ... 93 156 Whiteemithlid............. 3 
167 Martin Scot Dev. Cor. ............. 90 116. Wizard Systems 89 
84 Mepatiax, tic... ...... 1... 95 160 gZedcor....... 99 
* This advertiser prefers to be contacted directly: see ad for phone number. 
Advertising Sales Offices 
East Coast Northern California / Northwest 
Walter Andrzejewski (617) 567-8361 Lisa Boudreau (415) 424-0600 
Midwest Southern California /AZ/NM 


Michele Beaty (317) 875-8093 


Beth Dudas (714) 643-9439 


Advertising Director 
Shawn Horst (415) 424-0600 


Dr. Dobb’s Journal, December 1985 











AT” Pfantasies for your PC or XT." 


Want better speed and memory on your hardware-dependent programs and 
PC or XT without buying an AT? back again without rebooting. All with 
You’ve got it! Pfaster286’s compatible ROM software. 
Phoenix’s new Pfaster'™286 co-processor And, Pfaster286 does the job unintrusively! 
board turns your PC or XT into a high- No motherboard to exchange. No wires to 
speed engine 60 percent faster than an solder. No chips to pull. Just plug it into a 
AT. Three times faster than an XT. It even standard card slot, and type the 
supports PCs with third-party hard disks. magic word, ““PFAST? 
But that’s only the beginning. If you really didn’t want an AT in the first. 
You can handle spreadsheets and programs place, just what it could do for you, call or 
you never thought possible. Set up RAM disks in write: Phoenix Computer Products Corp., 
both 8088 and 80286 memory for linkage editor 320 Norwood Park South, Norwood, MA 
overlays or super-high-speed disk caching. All with 02062; (800) 344-7200. In Massachusetts, 
Pfaster286’s Imb of standard RAM, expandable to 617-762-5030. 


2mb, and dual-mode design. 


You can develop 8086/186/286 software on your XT 
faster. Execute 95 percent of the application packages 


b 
that run on the AT, excluding those that require fancy I/O : ° 
capabilities your PC or XT hardware just isn’t designed 
to handle. Queue multi-copy, multi-format print jobs for 
spooling. Or, switch to native 8088 mode to handle 


XT and AT are trademarks of International Business Machines Corporation. Pfaster2&86 and Programmers’ Ptantasies are trademarks of Phoenix Computer Products Corporation. 
For the Ferrari aficionado: yes. we know this is a rear engine car. We are showing the addition of a second engine to symbolize how Pfaster can be added to your PC or XT to increase performance. 


Circle no. 91 on reader service card. SEE US AT FALL COMDEX 





Programmers’ Pfantasies'™! 


SAVE OVER 30% ON OUR GIFT PACKS! 


60-DAY MONEY-BACK GUARANTEE 





How Borland's Three New Holiday 
Packs Will Fill Your Stocking Without 


Emptying Your Piggybank. 


Three special packs with dazzling discounts that will help get 
you into a Holiday mood. You can get some of Turbo, most of 
Turbo, or all of Turbo—including the two newest 
members of the Turbo family, Turbo GameWorks™ and 
Turbo Editor Toolbox™ You also get our unmatched 60- 
day money-back guarantee, quality products 
that aren’t copy-protected. 






























Our new Turbo GameWorks offers games you can play and replay 
without Turbo Pascal or revise and rewrite with Turbo 
Pascal 3.0. We give you the source code, the 

manual, the diskettes and the competi- 
___ tive edge. Chess, Bridge and Go-Moku. 
State-of-the-art games that let you be play- 
er, referee, and rules committee all at once 


You get the two exciting new members of the because you have the Turbo Pascal source 


Turbo Pascal family, code. Learn exactly how the games are 

© TURBO GAMEWORKS, Chess, Bridge, and Go- made—so you can go off and make your 
Moku, complete with source code and a 200- @ > Se own. And Turbo GameWorks is the only quality 
page manual. at - “(Ae == game you can buy that is not copy-protected. i 

© TURBO EDITOR TOOLBOX, all the building J. § © ago Sold separately, only $69.95. Qust $47.50 if you 
blocks to make your own editors and word e a buy the Turbo New Pack. ) 


processors, complete with source code and a 
200-page manual. 


Build your own word processor—for only $69.95! 
You get ready-to-compile source code, a full- 
featured word processor that looks and acts like 
WordStar™’ and a 200-page manual that tells you 
how to integrate the editor procedures and functions 
_into your programs. With Turbo Editor Toolbox you 
can have the best of all word processors. You can make 
_ WordStar behave like Multi-Mate. Support windows 
just like Microsoft's Word. And do it as fast as : 
WordPerfect does it. Incorporate yournew ts 
“hybrids” into your programs to achieve incredible - 
control and power. Sold separately, only $69.95. 
' k, 


You get all three of the Turbo family classics 
for only $125.00 (about a 30% discount). Turbo 
Pascal 3.0 and Turbo Tutor and Turbo Data- 
Base Toolbox—all for just $125.00. 

@ TURBO PASCAL combines the fastest Pascal 
compiler with an integrated develop- 

_ ment environment. , 

@ TURBO TUTOR teaches you step-by-step 
how to use Turbo Pascal with commented 
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